From 710b421b46c80a0b424951e29a6c9cb44ac5b252 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 4 Jul 2014 01:54:44 -0500 Subject: [PATCH] Remove some dead code in Types.hs --- Nix/Types.hs | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/Nix/Types.hs b/Nix/Types.hs index 75ae300..c71cfbe 100644 --- a/Nix/Types.hs +++ b/Nix/Types.hs @@ -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