file-modules 0.1.2.1 → 0.1.2.2

raw patch · 3 files changed

+7/−3 lines, 3 files

Files

• file-modules.cabal +1/−1
• src/Development/FileModules.hs +5/−1
• src/Main.hs +1/−1

@@ -1,5 +1,5 @@ name: file-modules-version: 0.1.2.1+version: 0.1.2.2 cabal-version: >=1.10 build-type: Simple license: MIT

@@ -28,7 +28,7 @@  fileModules :: FilePath -> IO [String] fileModules fname = do-    result <- parse <$> readFile fname+    result <- parse . sanitize <$> readFile fname     case result of         (ParseOk (NonGreedy{..})) -> do             let (ModuleHeadAndImports _ _ mimports) = unNonGreedy@@ -36,3 +36,7 @@                 let ModuleName iname = importModule imp                 in return iname         (ParseFailed _ _) -> error $ "Failed to parse module in " ++ fname+  where+    sanitize = unlines . map removeCpp . lines+    removeCpp ('#':_) = ""+    removeCpp l = l

@@ -11,7 +11,7 @@ main = do     args <- getArgs     case args of-      "--version":_ -> putStrLn "0.1.2.1"+      "--version":_ -> putStrLn "0.1.2.2"       "--help":_ -> printUsage       [] -> printUsage >> exitFailure       ms -> do