From c0bd5f3c37029e3f8bc3186512cd3777b967d904 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Sun, 17 Apr 2016 00:25:47 +0200 Subject: [PATCH] HACKING: rm default comments --- hacking/hsimport.hs | 6 ------ 1 file changed, 6 deletions(-) diff --git a/hacking/hsimport.hs b/hacking/hsimport.hs index 4f15c54..bc113db 100644 --- a/hacking/hsimport.hs +++ b/hacking/hsimport.hs @@ -6,9 +6,6 @@ main :: IO () main = hsimport $ defaultConfig { prettyPrint = prettyPrint , findImportPos = findImportPos } where - -- This is a bogus implementation of prettyPrint, because it doesn't - -- handle the qualified import case nor does it considers any explicitely - -- imported or hidden symbols. prettyPrint :: HS.ImportDecl -> String prettyPrint (HS.ImportDecl sloc modname qual _ _ mpkg mas mspec) = "import " ++ (ifStr qual "qualified") ++ @@ -35,9 +32,6 @@ main = hsimport $ defaultConfig { prettyPrint = prettyPrint printSpec = HS.prettyPrint - -- This findImportPos implementation will always add the new import - -- declaration at the end of the current ones. The data type ImportPos - -- has the two constructors After and Before. findImportPos :: HS.ImportDecl -> [HS.ImportDecl] -> Maybe ImportPos findImportPos _ [] = Nothing findImportPos newImport currentImports = Just findPos