forked from GitHub/gf-rgl
add semicolon at end of the file
This commit is contained in:
10
src/latin/api/mkMissing.hs
Normal file
10
src/latin/api/mkMissing.hs
Normal file
@@ -0,0 +1,10 @@
|
||||
import PGF
|
||||
import System.Environment
|
||||
|
||||
main =
|
||||
do
|
||||
args <- getArgs -- first one should be pgf file and second one should be the file containing the errors/warnings about missing things
|
||||
pgf <- PGF.readPGF (args !! 0) -- "tmp/Lang.pgf"
|
||||
ms <- readFile (args !! 1) {- "tmp/MissingLat.tmp" -} >>= return . map (last . words) . lines
|
||||
let ts = [PGF.showType [] t | m <- ms, Just t <- [PGF.functionType pgf (PGF.mkCId m)]]
|
||||
putStrLn $ unlines ["oper " ++ f ++ " : " ++ t ++ " = notYet \"" ++ f ++ "\" ;" | (f,t) <- zip ms ts]
|
||||
Reference in New Issue
Block a user