util-universe (empty) → 0.1.0.0
raw patch · 6 files changed
+145/−0 lines, 6 filesdep +basedep +smallcheckdep +tastysetup-changed
Dependencies added: base, smallcheck, tasty, tasty-smallcheck, universe-base, universe-instances-base, util-universe
Files
- LICENSE +30/−0
- README.md +1/−0
- Setup.hs +2/−0
- Util/Universe.hs +29/−0
- test/Main.hs +8/−0
- util-universe.cabal +75/−0
+ LICENSE view
@@ -0,0 +1,30 @@+Copyright M Farkas-Dyck © 2018++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++ * Redistributions of source code must retain the above copyright+ notice, this list of conditions and the following disclaimer.++ * Redistributions in binary form must reproduce the above+ copyright notice, this list of conditions and the following+ disclaimer in the documentation and/or other materials provided+ with the distribution.++ * Neither the name of M Farkas-Dyck nor the names of other+ contributors may be used to endorse or promote products derived+ from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ README.md view
@@ -0,0 +1,1 @@+# util-universe
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ Util/Universe.hs view
@@ -0,0 +1,29 @@+module Util.Universe where++import Prelude hiding ((.), id)+import Control.Arrow+import Control.Category+import Control.Monad+import Data.Functor.Classes+import Data.Functor.Compose+import qualified Data.List as List+import Data.Maybe+import Data.Universe.Class+import Data.Universe.Instances.Base ()+import Numeric.Natural++newtype Fn a b = Fn { unFn :: a -> b }+ deriving (Semigroup, Monoid, Universe, Finite, Functor, Applicative, Monad,+ Category, Arrow, ArrowApply, ArrowChoice, ArrowLoop)+instance (Universe a, Eq b) => Eq (Fn a b) where (==) = eq1+instance Universe a => Foldable (Fn a) where+ foldMap f (Fn φ) = foldMap (f . φ) universe+instance (Eq a, Finite a) => Traversable (Fn a) where+ sequenceA (Fn φ) =+ Fn . (\ bs a -> fromJust $ List.lookup a bs) . getCompose <$>+ traverse φ (Compose $ join (,) <$> universe)+instance Universe a => Eq1 (Fn a) where+ liftEq eq (Fn φ) (Fn χ) = liftEq eq (φ <$> universe) (χ <$> universe)++universalIndex :: (Eq a, Universe a) => a -> Natural+universalIndex a = List.genericLength $ List.takeWhile (/= a) universe
+ test/Main.hs view
@@ -0,0 +1,8 @@+module Main where++import Test.SmallCheck+import Test.Tasty+import Test.Tasty.SmallCheck++main :: IO ()+main = defaultMain $ testGroup "" []
+ util-universe.cabal view
@@ -0,0 +1,75 @@+name: util-universe+version: 0.1.0.0+synopsis: Utilities for universal types+-- description:+license: BSD3+license-file: LICENSE+author: M Farkas-Dyck+maintainer: strake888@gmail.com+copyright: 2018 M Farkas-Dyck+-- category: +build-type: Simple+extra-source-files: README.md+cabal-version: >=1.10++library+ hs-source-dirs: .+ exposed-modules: Util.Universe+ build-depends: base >= 4.7 && < 5+ , universe-base >=1.0 && <1.1+ , universe-instances-base >=1.0 && <1.1+ default-language: Haskell2010+ default-extensions: UnicodeSyntax+ , LambdaCase+ , EmptyCase+ , InstanceSigs+ , PartialTypeSignatures+ , PolyKinds+ , ConstraintKinds+ , FlexibleContexts+ , FlexibleInstances+ , MonadComprehensions+ , StandaloneDeriving+ , GeneralizedNewtypeDeriving+ , DeriveFunctor, DeriveFoldable, DeriveTraversable+ ghc-options: -Wall -Wcompat -Wredundant-constraints -Wno-name-shadowing+ -Wincomplete-record-updates -Wincomplete-uni-patterns+ -Werror=incomplete-patterns+ -Werror=incomplete-uni-patterns+ -Werror=incomplete-record-updates+ -Werror=missing-fields+ -Werror=missing-methods++test-suite test+ type: exitcode-stdio-1.0+ hs-source-dirs: test+ main-is: Main.hs+ build-depends: base >=4.11 && <5+ , smallcheck >=1.1.4+ , tasty >=1.0+ , tasty-smallcheck >=0.8+ , util-universe+ default-language: Haskell2010+ default-extensions: UnicodeSyntax+ , LambdaCase+ , EmptyCase+ , InstanceSigs+ , PartialTypeSignatures+ , PolyKinds+ , ConstraintKinds+ , FlexibleContexts+ , FlexibleInstances+ , MonadComprehensions+ , StandaloneDeriving+ , DeriveFunctor, DeriveFoldable, DeriveTraversable+ ghc-options: -Wall -Wcompat -Wredundant-constraints -Wno-name-shadowing+ -Wincomplete-record-updates -Wincomplete-uni-patterns+ -Werror=incomplete-patterns+ -Werror=incomplete-uni-patterns+ -Werror=incomplete-record-updates+ -Werror=missing-fields+ -Werror=missing-methods++source-repository head+ type: git+ location: https://github.com/strake/util-universe.hs