picnoir
/
hnix
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove some dead code in Types.hs

This commit is contained in:
John Wiegley 2014-07-04 01:54:44 -05:00
parent 569ebf3f9a
commit 710b421b46
1 changed files with 1 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Nix/Types.hs
View File

@ -117,20 +117,6 @@ instance Show (Fix NExprF) where show (Fix f) = show f
instance Eq (Fix NExprF) where Fix x == Fix y = x == y
instance Ord (Fix NExprF) where compare (Fix x) (Fix y) = compare x y
-- instance Functor NExprF where
-- fmap _ (NConstant a) = NConstant a
-- fmap f (NList r) = NList (fmap f r)
-- fmap f (NArgSet h) = NArgSet (fmap (fmap f) h)
-- fmap f (NSet b h) = NSet b $ map go h
-- where go (k, v) = (f k, f v)
-- fmap f (NLet r r1) = NLet (f r) (f r1)
-- fmap f (NIf r r1 r2) = NIf (f r) (f r1) (f r2)
-- fmap f (NWith r r1) = NWith (f r) (f r1)
-- fmap f (NAssert r r1) = NAssert (f r) (f r1)
-- fmap f (NVar r) = NVar (f r)
-- fmap f (NApp r r1) = NApp (f r) (f r1)
-- fmap f (NAbs r r1) = NAbs (f r) (f r1)
instance Show f => Show (NExprF f) where
show (NConstant x) = show x
show (NOper x) = show x
@ -167,7 +153,7 @@ instance Show f => Show (NExprF f) where
dumpExpr :: NExpr -> String
dumpExpr = cata phi where
phi (NConstant x) = "NConstant " ++ show x
-- phi (NOper x) = "NOper " ++ show x
phi (NOper x) = "NOper " ++ show x
phi (NList l) = "NList [" ++ show l ++ "]"
phi (NArgSet xs) = "NArgSet " ++ show xs
phi (NSet b xs) = "NSet " ++ show b ++ " " ++ show xs