git.iko.soy/MemoTrie
on master help sign in
import "base" Data.Void
commit28c647163b98b66592e32dae29afcd107b60defd authorSam Boosalis <samboosalis@gmail.com> dateSun 15 Nov 2015, 16:40 (11 years ago) parent28b965d
3 files changed+22−5
compare with master
unifiedsplit
MemoTrie.cabal+8−2 src/Data/MemoTrie.hs+3−3 src/Data/MemoTrie/Extra.hs+11
MemoTrie.cabal+8−2
@@ -26,9 +26,15 @@ source-repository head
2626
2727Library
2828 hs-Source-Dirs: src
29− Extensions:
30− Build-Depends: base < 5, void
29+
30+ if impl(ghc >= 7.10.0)
31+ Build-Depends: base < 5
32+ else
33+ Build-Depends: base < 5, void
34+
3135 Exposed-Modules:
3236 Data.MemoTrie
37+ Other-Modules:
38+ Data.MemoTrie.Extra
3339
3440 ghc-prof-options: -prof -auto-all
src/Data/MemoTrie.hs+3−3
@@ -62,8 +62,8 @@ import Data.Monoid
6262import Data.Function (on)
6363import GHC.Generics
6464
65−import Data.Void
66−
65+import Data.MemoTrie.Extra (Void)
66+
6767-- import Prelude hiding (id,(.))
6868-- import Control.Category
6969-- import Control.Arrow
@@ -173,7 +173,7 @@ instance HasTrie Void where
173173 -- As suggested by Audun Skaugen
174174 data Void :->: a = VoidTrie
175175 trie _ = VoidTrie
176− untrie VoidTrie = absurd
176+ untrie VoidTrie = \case
177177 enumerate VoidTrie = []
178178
179179instance HasTrie () where
src/Data/MemoTrie/Extra.hsnew file+11
@@ -0,0 +1,11 @@
1+{-# LANGUAGE CPP, PackageImports #-}
2+module Data.MemoTrie.Extra
3+ ( Void
4+ ) where
5+
6+#if MIN_VERSION_base(4,8,0)
7+import "base" Data.Void
8+#else
9+import "void" Data.Void
10+#endif
11+