zipcodes-port

port requests : Signal (Task x ())
port requests =
    let
        -- Task x a
        zipCodeLookups =
            Signal.map lookupZipCode query.signal

        sendResult =
            Signal.send results.address

        sendResultOfLookup lookupTask =
            Task.toResult lookupTask `andThen` sendResult
    in
        Signal.map sendResultOfLookup zipCodeLookups