mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
15 lines
306 B
Haskell
15 lines
306 B
Haskell
import List
|
|
|
|
main = do
|
|
s <- readFile "constrs"
|
|
mapM_ (putStrLn . mkOne) $ lines s
|
|
|
|
mkOne [] = []
|
|
mkOne s =
|
|
" mk" ++ cons ++ " " ++ rest ++
|
|
"\n =" ++ fun ++ " ;"
|
|
where
|
|
(fun,rest) = span (/=':') s
|
|
cons = last $ takeWhile (/="--") $ words rest
|
|
|