units-parser 0.1.1 → 0.1.1.1
raw patch · 2 files changed
+10/−2 lines, 2 files
Files
- Text/Parse/Units.hs +9/−1
- units-parser.cabal +1/−1
Text/Parse/Units.hs view
@@ -1,5 +1,5 @@ {-# LANGUAGE LambdaCase, NoMonomorphismRestriction, FlexibleContexts, RankNTypes,- Safe, DeriveGeneric, DeriveDataTypeable #-}+ Safe, DeriveGeneric, DeriveDataTypeable, CPP #-} {-# OPTIONS_HADDOCK prune #-} -----------------------------------------------------------------------------@@ -58,6 +58,10 @@ import Data.Maybe import Data.Char +#if __GLASGOW_HASKELL__ < 709+import Data.Typeable ( Typeable )+#endif+ ---------------------------------------------------------------------- -- Basic combinators ----------------------------------------------------------------------@@ -120,6 +124,10 @@ | Div (UnitExp pre u) (UnitExp pre u) | Pow (UnitExp pre u) Integer deriving (Eq, Ord, Generic, Data)++#if __GLASGOW_HASKELL__ < 709+deriving instance Typeable UnitExp+#endif instance (Show pre, Show u) => Show (UnitExp pre u) where show Unity = "1"
units-parser.cabal view
@@ -1,5 +1,5 @@ name: units-parser-version: 0.1.1+version: 0.1.1.1 cabal-version: >= 1.10 synopsis: A parser for units of measure category: Text