hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

HACKING: rm default comments

Browse Source
This commit is contained in:
Julian Ospald 2016-04-17 00:25:47 +02:00
parent c0ef142c41
commit c0bd5f3c37
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hacking/hsimport.hs
View File

@ -6,9 +6,6 @@ main :: IO ()
main = hsimport $ defaultConfig { prettyPrint = prettyPrint main = hsimport $ defaultConfig { prettyPrint = prettyPrint
, findImportPos = findImportPos } , findImportPos = findImportPos }
where 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 -> String
prettyPrint (HS.ImportDecl sloc modname qual _ _ mpkg mas mspec) = prettyPrint (HS.ImportDecl sloc modname qual _ _ mpkg mas mspec) =
"import " ++ (ifStr qual "qualified") ++ "import " ++ (ifStr qual "qualified") ++
@ -35,9 +32,6 @@ main = hsimport $ defaultConfig { prettyPrint = prettyPrint
printSpec = HS.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 :: HS.ImportDecl -> [HS.ImportDecl] -> Maybe ImportPos
findImportPos _ [] = Nothing findImportPos _ [] = Nothing
findImportPos newImport currentImports = Just findPos findImportPos newImport currentImports = Just findPos