packages feed

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
@@ -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"