Skip to content

Commit

Permalink
Merge pull request Happstack#35 from jeffersoncarpenter/patch-1
Browse files Browse the repository at this point in the history
add space before ::
  • Loading branch information
ddssff authored Nov 13, 2017
2 parents 8d41110 + 13e048d commit cae559c
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Happstack/Server/Response.hs
Original file line number Diff line number Diff line change
Expand Up @@ -97,7 +97,7 @@ class ToMessage a where
toContentType _ = B.pack "text/plain"
toMessage :: a -> L.ByteString
toMessage = error "Happstack.Server.SimpleHTTP.ToMessage.toMessage: Not defined"
toResponse:: a -> Response
toResponse :: a -> Response
toResponse val =
let bs = toMessage val
res = Response 200 M.empty nullRsFlags bs Nothing
Expand Down

0 comments on commit cae559c

Please sign in to comment.