mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-22 19:41:22 +03:00
32 lines
691 B
Haskell
Executable File
32 lines
691 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 Cryptol.Parser.NoPat
|
|
import Cryptol.Utils.PP
|
|
|
|
import System.Process(readProcess)
|
|
import System.IO(hPrint,stderr)
|
|
|
|
main :: IO ()
|
|
main =
|
|
do txt <- getContents
|
|
let mb = parseProgram Layout txt
|
|
case mb of
|
|
Left err -> hPrint stderr $ ppError err
|
|
Right p ->
|
|
case removePatterns p of
|
|
(p1,[]) -> print $ pp p1
|
|
(_,errs) -> hPrint stderr $ vcat $ map pp errs
|
|
|
|
|
|
|