Commits

Alex Suraci committed b24805b

updates for latest atomo
Ignore-this: a9631c08c74e32da5dee3b6e0b3bd5c1

  • Participants
  • Parent commits e1c4ca3

Comments (0)

Files changed (1)

     toValue r@(Response { rspCode = (c1, c2, c3) }) = do
         ([$p|r|] =::) =<< eval [$e|HTTP Response clone|]
 
-        ([$p|r code|] =::) =<<
-            list (map (Integer . fromIntegral) [c1, c2, c3])
+        [$p|r code|] =:: list (map (Integer . fromIntegral) [c1, c2, c3])
 
         [$p|r reason|] =:: string (rspReason r)
 
-        headers <- (list =<<) $ forM (rspHeaders r) $ \(Header n v) ->
+        headers <- forM (rspHeaders r) $ \(Header n v) ->
             dispatch (keyword ["->"] [string (show n), string v])
 
-        [$p|r headers|] =:: headers
+        [$p|r headers|] =:: list headers
 
         [$p|r body|] =:: string (rspBody r)
         here "r"