Remove the generic-trie dependency

This commit is contained in:
Trevor Elliott 2016-05-27 17:05:16 -07:00
parent c6144bd332
commit 2f21dd509a
2 changed files with 0 additions and 6 deletions

View File

@ -51,7 +51,6 @@ library
directory >= 1.2,
filepath >= 1.3,
gitrev >= 1.0,
generic-trie >= 0.3.0.1,
GraphSCC >= 1.0.4,
heredoc >= 0.2,
monad-control >= 1.0,
@ -168,8 +167,6 @@ library
GitRev
GHC-options: -Wall -O2 -fsimpl-tick-factor=140
-- the `fsimpl-tick-factor` is needed to finish optimizing the
-- generic trie.
ghc-prof-options: -fprof-auto -prof
if flag(relocatable)

View File

@ -16,15 +16,12 @@ module Cryptol.TypeCheck.Solver.InfNat where
import Data.Bits
import Cryptol.Utils.Panic
import Data.GenericTrie(TrieKey)
import GHC.Generics(Generic)
-- | Natural numbers with an infinity element
data Nat' = Nat Integer | Inf
deriving (Show,Eq,Ord,Generic)
instance TrieKey Nat'
fromNat :: Nat' -> Maybe Integer
fromNat n' =
case n' of