simonmar / haskell-exchange-2015 Goto Github PK

Contributors

Stargazers

Forkers

evome lywaterman hoikaw k-bx noname007 r-wheeler martin-majlis hoangpq doytsujin roman-mkh

main :: IO ()
main = do
  putStrLn "hello world"
  res <- run $ (,) <$> mapM getPostContent [1..3] <*> mapM getPostContent [4..6]
  print res

➜  blog git:(master) ✗ stack exec blog
hello world
select postid,content from postcontent where postid in (4,1)
select postid,content from postcontent where postid in (5,2)
select postid,content from postcontent where postid in (6,3)
(["example content 1","example content 2","example content 3"],["example content 4","example content 5","example content 6"])