diff --git a/hacking/hsimport.hs b/hacking/hsimport.hs index e55cca6..d5d66b3 100644 --- a/hacking/hsimport.hs +++ b/hacking/hsimport.hs @@ -8,7 +8,7 @@ main = hsimport $ defaultConfig { prettyPrint = prettyPrint where prettyPrint :: HS.ImportDecl -> String prettyPrint (HS.ImportDecl sloc modname qual _ _ mpkg mas mspec) = - "import " ++ (ifStr qual "qualified") ++ + "import " ++ (ifStr qual "qualified ") ++ (maybe "" (\pkg -> " \"" ++ pkg ++ "\" ") mpkg) ++ getMN modname ++ (maybe "" (\name -> " as " ++ getMN name) $ mas) ++ specprint mspec