2024-12-30 08:44:51 +01:00
|
|
|
module Main (main) where
|
2025-01-25 20:55:26 +01:00
|
|
|
import qualified Text.Parsec as Parsec
|
|
|
|
|
import qualified Ubc.Parse.Syntax.File as File
|
2024-12-30 08:44:51 +01:00
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
|
|
|
|
text <- getContents
|
2025-02-18 17:16:18 +01:00
|
|
|
-- fixme: handle errors?
|
2025-01-25 20:55:26 +01:00
|
|
|
|
2025-02-13 23:39:17 +01:00
|
|
|
print $ Parsec.parse (File.parse "<stdin>" <* Parsec.eof) "<stdin>" text
|
