ddl/test/idHs.hs


1
2
3
4
5
6
7
8

{-# LANGUAGE ScopedTypeVariables  #-}
import qualified Data.ByteString.Lazy as B
import Data.Aeson
import IR

main = do
  Just (p :: Pipeline) <- decode <$> B.getContents
  B.putStr $ encode p