graphmod 1.2 → 1.2.1

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

graphmod.cabal +1/−1
src/Main.hs +1/−1

graphmod.cabal view

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

src/Main.hs view

@@ -123,7 +123,7 @@  collapse (Trie.Sub ts mb) [q] =   do n <- getFirst =<< Map.lookup q ts-     return $ Trie.Sub Map.empty $ Just+     return $ Trie.Sub (Map.delete q ts) $ Just                                  $ ((CollapsedNode,q),n) : fromMaybe [] mb   where getFirst (Trie.Sub ts1 ms) =           msum (fmap snd (listToMaybe =<< ms) : map getFirst (Map.elems ts1))