forked from GitHub/gf-core
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
|
|
|