graphmod 1.3 → 1.4

raw patch · 2 files changed

+3/−1 lines, 2 files

Files

graphmod.cabal +1/−1
src/Utils.hs +2/−0

graphmod.cabal view

@@ -1,5 +1,5 @@ name:           graphmod-version:        1.3+version:        1.4 license:        BSD3 license-file:   LICENSE author:         Iavor S. Diatchki

src/Utils.hs view

@@ -16,6 +16,7 @@ import Language.Haskell.Lexer(lexerPass0,Token(..),PosToken,line)  import Control.Monad(mplus)+import Control.Exception(evaluate) import Data.Maybe(catMaybes) import Data.List(intersperse,isPrefixOf) import System.Directory(doesFileExist)@@ -31,6 +32,7 @@ parseFile          :: FilePath -> IO (ModName,[Import]) parseFile f =   do (modName, imps) <- (parseString . get_text) `fmap` readFile f+     evaluate (length imps) -- this is here so that the file gets closed      if ext == ".imports"        then return (splitModName (takeBaseName f), imps)        else return (modName, imps)