Permalink
Browse files

Remove some left over code (was commented out).

  • Loading branch information...
1 parent 7f02c7e commit 2f71414c4129edb4b80025b6f2ae41fb1754d898 @Laar committed Mar 10, 2013
Showing with 0 additions and 9 deletions.
  1. +0 −9 src/Main.hs
View
@@ -62,15 +62,6 @@ rmain = do
let lMap'' = cleanupSpec opts lMap'
modules <- liftRawGen $ makeRaw (lMap'', vMap)
outputModules modules
- -- write out the modules
--- logMessage $ "Writing modules"
--- processModules' outputModule modules
--- logMessage $ "Writing module names"
- -- and a list of exposed and internal modules.
--- liftIO (safeWriteFile (oDir </> "modulesE.txt") (unlines .
--- map (\n -> " " ++ moduleNameToName n ++ ",") . fst $ listModules modules))
--- liftIO (safeWriteFile (oDir </> "modulesI.txt") (unlines .
--- map (\n -> " " ++ moduleNameToName n ++ ",") . snd $ listModules modules))
-- | Parse and process the reuse files. It generates no warning if there is
-- no reuse file to parse

0 comments on commit 2f71414

Please sign in to comment.