forked from GitHub/gf-core
17 lines
281 B
Haskell
17 lines
281 B
Haskell
-- to process constructor examples to lin commans
|
|
|
|
main = mkgfs
|
|
|
|
src = "ExxI.gf"
|
|
script = "exx.gfs"
|
|
|
|
mkgfs = do
|
|
writeFile script ""
|
|
readFile src >>= (mapM addLin . lines)
|
|
|
|
|
|
addLin s = case words s of
|
|
c@('e':'x':_):_ -> appendFile script ("l " ++ c ++ "\n")
|
|
_ -> return ()
|
|
|