pulling semiring in module
This commit is contained in:
+1
-1
@@ -45,6 +45,7 @@ library
|
|||||||
Show
|
Show
|
||||||
Either
|
Either
|
||||||
Functor
|
Functor
|
||||||
|
Semiring
|
||||||
Bifunctor
|
Bifunctor
|
||||||
|
|
||||||
default-extensions:
|
default-extensions:
|
||||||
@@ -64,7 +65,6 @@ library
|
|||||||
async >= 2.1 && <2.2,
|
async >= 2.1 && <2.2,
|
||||||
deepseq >= 1.3 && <= 1.5,
|
deepseq >= 1.3 && <= 1.5,
|
||||||
containers >= 0.5 && <0.6,
|
containers >= 0.5 && <0.6,
|
||||||
semiring-simple >= 0.1 && <1.1,
|
|
||||||
mtl >= 2.1 && <2.3,
|
mtl >= 2.1 && <2.3,
|
||||||
transformers >= 0.4 && < 0.6,
|
transformers >= 0.4 && < 0.6,
|
||||||
text >= 1.2 && <1.3,
|
text >= 1.2 && <1.3,
|
||||||
|
|||||||
+1
-1
@@ -80,7 +80,7 @@ import Data.Foldable as X hiding (
|
|||||||
foldr1
|
foldr1
|
||||||
, foldl1
|
, foldl1
|
||||||
)
|
)
|
||||||
import Data.Semiring as X
|
import Semiring as X
|
||||||
import Data.Functor.Identity as X
|
import Data.Functor.Identity as X
|
||||||
|
|
||||||
#if ( __GLASGOW_HASKELL__ >= 800 )
|
#if ( __GLASGOW_HASKELL__ >= 800 )
|
||||||
|
|||||||
@@ -0,0 +1,19 @@
|
|||||||
|
{-# LANGUAGE Safe #-}
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
|
||||||
|
module Semiring (
|
||||||
|
Semiring(..),
|
||||||
|
zero,
|
||||||
|
) where
|
||||||
|
|
||||||
|
import Data.Monoid
|
||||||
|
|
||||||
|
-- | Alias for 'mempty'
|
||||||
|
zero :: Monoid m => m
|
||||||
|
zero = mempty
|
||||||
|
|
||||||
|
class Monoid m => Semiring m where
|
||||||
|
{-# MINIMAL one, (<.>) #-}
|
||||||
|
|
||||||
|
one :: m
|
||||||
|
(<.>) :: m -> m -> m
|
||||||
-27
@@ -1,34 +1,7 @@
|
|||||||
# For more information, see: https://github.com/commercialhaskell/stack/blob/release/doc/yaml_configuration.md
|
|
||||||
|
|
||||||
# Specifies the GHC version and set of packages available (e.g., lts-3.5, nightly-2015-09-21, ghc-7.10.2)
|
|
||||||
resolver: lts-5.10
|
resolver: lts-5.10
|
||||||
|
|
||||||
# Local packages, usually specified by relative directory name
|
|
||||||
packages:
|
packages:
|
||||||
- '.'
|
- '.'
|
||||||
|
|
||||||
# Packages to be pulled from upstream that are not in the resolver (e.g., acme-missiles-0.3)
|
|
||||||
extra-deps:
|
extra-deps:
|
||||||
- semiring-simple-1.0.0.1
|
|
||||||
- string-conv-0.1
|
- string-conv-0.1
|
||||||
|
|
||||||
# Override default flag values for local packages and extra-deps
|
|
||||||
flags: {}
|
flags: {}
|
||||||
|
|
||||||
# Extra package databases containing global packages
|
|
||||||
extra-package-dbs: []
|
extra-package-dbs: []
|
||||||
|
|
||||||
# Control whether we use the GHC we find on the path
|
|
||||||
# system-ghc: true
|
|
||||||
|
|
||||||
# Require a specific version of stack, using version ranges
|
|
||||||
# require-stack-version: -any # Default
|
|
||||||
# require-stack-version: >= 0.1.4.0
|
|
||||||
|
|
||||||
# Override the architecture used by stack, especially useful on Windows
|
|
||||||
# arch: i386
|
|
||||||
# arch: x86_64
|
|
||||||
|
|
||||||
# Extra directories used by stack for building
|
|
||||||
# extra-include-dirs: [/path/to/dir]
|
|
||||||
# extra-lib-dirs: [/path/to/dir]
|
|
||||||
|
|||||||
Reference in New Issue
Block a user