Derive Typeable for Ann

2016-06-25 17:40:09 +01:00 · 2016-06-25 17:40:09 +01:00 · b29218c029
parent 0f180164e5
commit b29218c029
1 changed files with 1 additions and 1 deletions
--- a/Nix/Expr/Types/Annotated.hs
+++ b/Nix/Expr/Types/Annotated.hs
@ -35,7 +35,7 @@ data SrcSpan = SrcSpan{ spanBegin :: Delta
 data Ann ann a = Ann{ annotation :: ann
                    , annotated  :: a
                    }
-  deriving (Ord, Eq, Data, Generic, Functor, Read, Show)
+  deriving (Ord, Eq, Data, Generic, Typeable, Functor, Read, Show)

 instance Show ann => Show1 (Ann ann) where
  showsPrec1 = showsPrec