graphmod 1.1.1 → 1.1.2

raw patch · 2 files changed

+9/−5 lines, 2 files

Files

• graphmod.cabal +1/−1
• src/Utils.hs +8/−4

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

@@ -21,18 +21,22 @@  -- | Get the imports of a file. parseFile          :: FilePath -> IO (ModName,[ModName])-parseFile f         = (parseString . get_text) `fmap` readFile f+parseFile f         = (debug . parseString . get_text) `fmap` readFile f   where get_text txt = if takeExtension f == ".lhs" then delit txt else txt+        debug z@(x,y) = z -- trace ("imports of " ++ show x ++ show y) z  -- | Get the imports from a string that represents a program. parseString        :: String -> (ModName,[ModName])-parseString         = parse . lexerPass1+parseString         = parse . debug . lexerPass1+  where debug xs = xs -- trace (unlines $ "tokens: " : map show xs) xs   isImp (_ : (Conid, (_,x)) : xs)   = Just (x,xs) isImp (_ : (Qconid, (_,x)) : xs)  = Just (x,xs)-isImp (_ : (Specialid,_) : (Conid, (_,x)) : xs)   = Just (x,xs)-isImp (_ : (Specialid,_) : (Qconid, (_,x)) : xs)  = Just (x,xs)+-- isImp (_ : (Specialid,_) : (Conid, (_,x)) : xs)   = Just (x,xs)+-- isImp (_ : (Specialid,_) : (Qconid, (_,x)) : xs)  = Just (x,xs)+isImp (_ : (Varid,_) : (Conid, (_,x)) : xs)   = Just (x,xs)+isImp (_ : (Varid,_) : (Qconid, (_,x)) : xs)  = Just (x,xs) isImp _ = Nothing  -- parse xs | trace (show (take 10 xs)) False = undefined