Skip to content

Instantly share code, notes, and snippets.

@tonyday567

tonyday567/TestMVC.hs

Created September 18, 2014 03:17
Show Gist options
  • Save tonyday567/0c918b3a18b5a311f70b to your computer and use it in GitHub Desktop.
Save tonyday567/0c918b3a18b5a311f70b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
TestMVC.hs
vcStd :: Managed (View C.ByteString, Controller C.ByteString)
vcStd = ((,) <$> pure (contramap show MVC.stdoutLines) <*> fmap C.pack <$> MVC.stdinLines)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment