higher-order-open-union 0.1.0.0 → 0.1.0.1
raw patch · 4 files changed
+7/−29 lines, 4 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Lib: someFunc :: IO ()
+ Data.HigherFunctor: instance Data.HigherFunctor.Loose Control.HigherOpenUnion.Fail
+ Data.HigherFunctor: instance Data.HigherFunctor.Tight Control.HigherOpenUnion.Fail
Files
- app/Main.hs +0/−6
- higher-order-open-union.cabal +1/−17
- src/Data/HigherFunctor.hs +6/−0
- src/Lib.hs +0/−6
− app/Main.hs
@@ -1,6 +0,0 @@-module Main (main) where--import Lib--main :: IO ()-main = someFunc
higher-order-open-union.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: higher-order-open-union-version: 0.1.0.0+version: 0.1.0.1 synopsis: This package is used by package yaftee description: Please see the README on GitHub at <https://github.com/YoshikuniJujo/higher-order-open-union#readme> category: Control@@ -31,7 +31,6 @@ Control.HigherOpenUnion Data.HigherFunctor Data.TypeElem- Lib other-modules: Paths_higher_order_open_union autogen-modules:@@ -42,21 +41,6 @@ build-depends: base >=4.7 && <5 , freer-base-classes ==0.1.*- default-language: Haskell2010--executable higher-order-open-union-exe- main-is: Main.hs- other-modules:- Paths_higher_order_open_union- autogen-modules:- Paths_higher_order_open_union- hs-source-dirs:- app- ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N- build-depends:- base >=4.7 && <5- , freer-base-classes ==0.1.*- , higher-order-open-union default-language: Haskell2010 test-suite higher-order-open-union-test
src/Data/HigherFunctor.hs view
@@ -68,3 +68,9 @@ mapT f g u = case decomp u of Left u' -> weaken $ mapT f g u' Right h -> injh $ mapT f g h++instance Tight Fail where+ mapT _ _ (Fail e) = Fail e+ mapT f _ (m `FailCatch` h) = (f m) `FailCatch` \e -> f $ h e++instance Loose Fail
− src/Lib.hs
@@ -1,6 +0,0 @@-module Lib- ( someFunc- ) where--someFunc :: IO ()-someFunc = putStrLn "someFunc"