choice 0.1.0.0 → 0.1.1.0
raw patch · 3 files changed
+10/−1 lines, 3 filesdep ~basePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base
API changes (from Hackage documentation)
Files
- README.md +2/−0
- choice.cabal +1/−1
- src/Data/Choice.hs +7/−0
README.md view
@@ -1,1 +1,3 @@ # Choice: a solution to boolean blindness++[](https://travis-ci.org/mboes/choice)
choice.cabal view
@@ -1,5 +1,5 @@ name: choice-version: 0.1.0.0+version: 0.1.1.0 synopsis: A solution to boolean blindness. description: Please see README.md. homepage: https://github.com/mboes/choice#readme
src/Data/Choice.hs view
@@ -31,6 +31,7 @@ -- no need to ensure that constructor names are unique, nor to pollute the -- precious constructor namespace in a large module with many flags. +{-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MagicHash #-}@@ -38,7 +39,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE TypeFamilies #-} +#if __GLASGOW_HASKELL__ >= 800 {-# OPTIONS_GHC -fno-warn-missing-pattern-synonym-signatures #-}+#endif module Data.Choice ( Choice@@ -57,7 +60,9 @@ , Label(..) ) where +#if MIN_VERSION_base(4,9,0) import GHC.OverloadedLabels (IsLabel(..))+#endif import GHC.TypeLits (Symbol) -- $label-export@@ -68,8 +73,10 @@ -- | A synonym for 'Data.Proxy.Proxy'. data Label (a :: Symbol) = Label deriving (Eq, Ord, Show) +#if MIN_VERSION_base(4,9,0) instance x ~ x' => IsLabel x (Label x') where fromLabel _ = Label+#endif -- | A labeled boolean choice. data Choice (a :: Symbol)