uniform-pair 0.1.2 → 0.1.3
raw patch · 2 files changed
+7/−2 lines, 2 filesdep +ShowF
Dependencies added: ShowF
Files
- src/Data/UniformPair.hs +5/−0
- uniform-pair.cabal +2/−2
src/Data/UniformPair.hs view
@@ -23,12 +23,17 @@ import Data.Traversable (Traversable(..)) import Control.Applicative (Applicative(..)) -- ,liftA2 +import Text.ShowF (ShowF(..))+ infix 1 :# -- | Uniform pairs data Pair a = a :# a deriving (Show, Functor, Foldable,Traversable) -- instance Traversable Pair where sequenceA (u :# v) = (:#) <$> u <*> v++instance ShowF Pair where+ showsPrecF = showsPrec fstP :: Pair a -> a fstP (a :# _) = a
uniform-pair.cabal view
@@ -1,5 +1,5 @@ Name: uniform-pair-Version: 0.1.2+Version: 0.1.3 Cabal-Version: >= 1.6 Synopsis: Uniform pairs with class instances Category: Data@@ -21,7 +21,7 @@ Library hs-Source-Dirs: src Extensions:- Build-Depends: base<5+ Build-Depends: base<5, ShowF Exposed-Modules: Data.UniformPair ghc-options: -Wall