1
1
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-19 22:11:33 +03:00
cryptol/utils/CryPP.hs
2014-04-17 15:34:25 -07:00

22 lines
407 B
Haskell
Executable File

#!/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