@@ -45,6 +45,9 @@ parseCommand cmdString =
4545 ts <- P.lex "" s
4646 P.runTokenParser "" (p <* eof) ts
4747
48+ trim :: String -> String
49+ trim = trimEnd . trimStart
50+
4851 trimStart :: String -> String
4952 trimStart = dropWhile isSpace
5053
@@ -59,8 +62,8 @@ parseCommand cmdString =
5962 Just D.Reset -> return C.Reset
6063 Just D.Import -> C.Import <$> parseRest P.moduleName arg
6164 Just D.Browse -> C.Browse <$> parseRest P.moduleName arg
62− Just D.Load -> return $ C.LoadFile (trimEnd arg)
63− Just D.Show -> return $ C.Show (trimEnd arg)
65+ Just D.Load -> return $ C.LoadFile (trim arg)
66+ Just D.Show -> return $ C.Show (trim arg)
6467 Just D.Type -> C.TypeOf <$> parseRest P.parseValue arg
6568 Just D.Kind -> C.KindOf <$> parseRest P.parseType arg
6669 Nothing -> Left $ "Unrecognized command. Type :? for help."