mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-15 10:46:37 +03:00
24 lines
530 B
Haskell
Executable File
24 lines
530 B
Haskell
Executable File
#!/usr/bin/env runhaskell
|
|
|
|
-- |
|
|
-- Module : Main
|
|
-- Copyright : (c) 2013-2016 Galois, Inc.
|
|
-- License : BSD3
|
|
-- Maintainer : cryptol@galois.com
|
|
-- Stability : provisional
|
|
-- Portability : portable
|
|
|
|
import Cryptol.Parser
|
|
import Cryptol.Parser.AST(noPos)
|
|
import System.Process(readProcess)
|
|
|
|
main :: IO ()
|
|
main =
|
|
do txt <- getContents
|
|
putStrLn =<< readProcess "ppsh" ["--html"]
|
|
(show $ dropLoc $ parseProgram Layout txt)
|
|
|
|
dropLoc (Right a) = Right (noPos a)
|
|
dropLoc (Left a) = Left a
|
|
|