Code snippets that don't parse

[aaronallen8455]

anything with an opening but no closing bracket

case find ((`elem` [DC.ShipmentDateChange, DC.PickupDateChange]) . dcdType)

    DatesChangedDetails
      {dcdArrivalDate = arrivalUpdate,
       dcdDepartureDate = departureUpdate, dcdOfxRole = dcadRole v1}

    do let mUser = getUserFromPone pone
           mPoneArrival
             = Pone.pOrderOriginalArrivalDate $ Pone.pEventOrder pone
           mPoneDeparture = getExpectedDeparture pone
       Just details <- pure
                         $ buildDatesChangedDetails
                             (getExpectedArrivalDate pog) (coerce mPoneArrival)
                             (getExpectedDeparture pog) mPoneDeparture
       [OrderEvent
          {OE.oeOccurredAt = occurredAt, OE.oeSource = Omi,
           OE.oeLegacySource = Omi, OE.oeUsername = mUser,
           OE.oeDetails = UpdateEvent $ DatesChanged details,
           OE.oeUserGroup = Nothing}]

[aaronallen8455]

    let
      recvWarehouse = buildMainWarehouse $ pociRecvWhse inputs
      validatedSupplierData = pociValidatedSupplierData inputs
      spurData = vsdSpurData validatedSupplierData
      mkItemDetails
        = buildItemCreatedDetailsFromPoadItem
            (pociWarehouseItems inputs) (snd $ pociCostComponents inputs)
      itemDetails
        = fromListByKey icdItemCode
            $ catMaybes
                $ zipWith mkItemDetails [ItemSequence 1 .. ] (Poad.poadItems poad)
      departureDateTime
        = ExpectedDepartureDateTime . WDT.originalPickupDateToUTCTime
            $ Poad.poadPickupDateTime poad
      departureType = _
      inventoryAnalyst = InventoryAnalystNumber "77"
    in
      PurchaseOrderCreatedDetails
        {pocdWimsId = pociWimsId inputs, pocdState = Approved,
         pocdSubType = derivePurchaseOrderSubtype,
         pocdSupplier = buildSupplierFromSpur validatedSupplierData,
         pocdCosts = fst $ pociCostComponents inputs,
         pocdReceivingWarehouse = recvWarehouse,
         pocdInventoryAnalystName = InventoryAnalystName "WFR",
         pocdInventoryAnalystNumber = inventoryAnalyst,
         pocdOrderSource = buildOrderSource Wfr,
         pocdOrderedDateTime = pociOrderedDateTime inputs,
         pocdOriginalDeparture = ExpectedDeparture
                                   departureType departureDateTime,
         pocdOriginalArrivalDateTime = Poad.poadArrivalDateTime poad,
         pocdOrderTags = fromList $ pociExtraOrderTags inputs,
         pocdNextTmsSequence = ItemSequence . fromIntegral
                                 $ length itemDetails + 1,
         pocdJdaLoadId = Just $ Poad.poadLoadId poad,
         pocdFreightPaymentType = deriveFreightPaymentTypeFromSpurData
                                    spurData,
         pocdFreightType = deriveFreightTypeFromSpurData spurData,
         pocdFreightBillType = None,
         pocdEdiMode = spurToEdiMode $ Spur.posEDIMode spurData,
         pocdSpurOriginLocationUuid = Nothing,
         pocdITradeFacilityNumber = Nothing, pocdIsITradePo = IsNotITradePo,
         pocdSupplierPickupReferenceNumber = Nothing,
         pocdFpmConfirmCode = Nothing, pocdFpmDemandId = Nothing,
         pocdItems = itemDetails}

[aaronallen8455]

"Relevant bindings include"

[aaronallen8455]

    PurchaseOrderCreatedDetails
      {pocdWimsId = pociWimsId inputs, pocdState = Approved,
       pocdSubType = derivePurchaseOrderSubtype,
       pocdSupplier = buildSupplierFromSpur validatedSupplierData,
       pocdCosts = fst $ pociCostComponents inputs,
       pocdReceivingWarehouse = recvWarehouse,
       pocdInventoryAnalystName = InventoryAnalystName "WFR",
       pocdInventoryAnalystNumber = inventoryAnalyst,
       pocdOrderSource = buildOrderSource Wfr,
       pocdOrderedDateTime = pociOrderedDateTime inputs,
       pocdOriginalDeparture = ExpectedDeparture _ departureDateTime,
       pocdOriginalArrivalDateTime = Poad.poadArrivalDateTime poad,
       pocdOrderTags = fromList $ pociExtraOrderTags inputs,
       pocdNextTmsSequence = ItemSequence . fromIntegral
                               $ length itemDetails + 1,
       pocdJdaLoadId = Just $ Poad.poadLoadId poad,
       pocdFreightPaymentType = deriveFreightPaymentTypeFromSpurData
                                  spurData,
       pocdFreightType = deriveFreightTypeFromSpurData spurData,
       pocdFreightBillType = None,
       pocdEdiMode = spurToEdiMode $ Spur.posEDIMode spurData,
       pocdSpurOriginLocationUuid = Nothing,
       pocdITradeFacilityNumber = Nothing, pocdIsITradePo = IsNotITradePo,
       pocdSupplierPickupReferenceNumber = Nothing,
       pocdFpmConfirmCode = Nothing, pocdFpmDemandId = Nothing,
       pocdItems = itemDetails}