mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-17 13:01:31 +03:00
22 lines
407 B
Haskell
22 lines
407 B
Haskell
|
#!/usr/bin/env runhaskell
|
||
|
|
|
||
|
|
-- |
|
||
|
|
-- Module : $Header$
|
||
|
|
-- Copyright : (c) 2013-2014 Galois, Inc.
|
||
|
|
-- License : BSD3
|
||
|
|
-- Maintainer : cryptol@galois.com
|
||
|
|
-- Stability : provisional
|
||
|
|
-- Portability : portable
|
||
|
|
|
||
|
|
import Cryptol.Parser
|
||
|
|
import Cryptol.Utils.PP(pp)
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main =
|
||
|
|
do txt <- getContents
|
||
|
|
print (sh $ parseProgram Layout txt)
|
||
|
|
|
||
|
|
sh (Right a) = pp a
|
||
|
|
sh (Left a) = ppError a
|
||
|
|
|