# mstr = case mode of
MHelp = Left [usageInfo ("Usage: " +++ argv0 +++ " [opts]\n") opts]
MLex = map (nl o toString) <$> lex cs
- MParse = map (nl o toString) <$> (lex cs >>= parse)
+ MParse = map (nl o either toString toString) <$> (lex cs >>= parse)
MType = map (\(t, s)->nl (toString t +++ " :: " +++ toString s)) o snd <$> (lex cs >>= parse >>= check)
MInterpret = pure o toString <$> (lex cs >>= parse >>= check >>= int o fst)
MGen = lex cs >>= parse >>= check >>= gen o fst