shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Tweak

--- a/src/MicroHs/Main.hs

+++ b/src/MicroHs/Main.hs

@@ -22,7 +22,7 @@

     mn =

       let

         ss = filter (not . (eqString "-") . take 1) args

-      in   if length ss == 1 then head ss else error "Usage: uhs [-v] [-r] [-iPATH] [-oFILE] ModuleName"

+      in   if length ss == 1 then head ss else error "Usage: mhs [-v] [-r] [-iPATH] [-oFILE] ModuleName"

     flags = Flags (length (filter (eqString "-v") args))

                   (elemBy eqString "-r" args)

                   ("." : catMaybes (map (stripPrefixBy eqChar "-i") args))

-- 

⑨