9 lines
237 B
Haskell
9 lines
237 B
Haskell
module Main (main) where
|
|
import qualified Text.Parsec as Parsec
|
|
import qualified Ubc.Parse.Syntax.File as File
|
|
|
|
main :: IO ()
|
|
main = do
|
|
text <- getContents
|
|
|
|
print $ Parsec.parse (File.parse <* Parsec.eof) "<stdin>" text
|