mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-20 10:02:03 +03:00
21 lines
508 B
Idris
21 lines
508 B
Idris
|
import Data.List
|
||
|
|
import Data.String
|
||
|
|
import System.File
|
||
|
|
|
||
|
|
path : String
|
||
|
|
path = "build/exec/main_app/main.ss"
|
||
|
|
|
||
|
|
mainLine : String -> Bool
|
||
|
|
mainLine str =
|
||
|
|
("(define Main-main" `isPrefixOf` str) &&
|
||
|
|
("prim__putStr" `isInfixOf` str) &&
|
||
|
|
not ("io_bind" `isInfixOf` str)
|
||
|
|
|
||
|
|
main : IO ()
|
||
|
|
main = do
|
||
|
|
Right str <- readFile path
|
||
|
|
| Left err => putStrLn "Error when reading \{path}"
|
||
|
|
case any mainLine (lines str) of
|
||
|
|
True => putStrLn "io_bind correctly inlined"
|
||
|
|
False => putStrLn "Failed to inline io_bind"
|