atl 15321.1 → 15321.2

raw patch · 2 files changed

+11/−1 lines, 2 files

Files

Util.hs +9/−0
atl.cabal +2/−1

+ Util.hs view

@@ -0,0 +1,9 @@+module Util where++import Control.Arrow;++constA :: Arrow r => a -> r b a;+constA = arr . const;++swap_snds_A :: Arrow r => r ((a, b), c) ((a, c), b);+swap_snds_A = arr $ \ ((x, y), z) -> ((x, z), y);

atl.cabal view

@@ -1,5 +1,5 @@ Name:atl-Version:15321.1+Version:15321.2 Description:Arrow Transformer Library License:LGPL License-File:license.txt@@ -14,4 +14,5 @@   Build-Depends: base >= 4 && < 5   Extensions: UnicodeSyntax, RankNTypes, MultiParamTypeClasses, FlexibleInstances, FlexibleContexts   Exposed-Modules: Control.Arrow.Transformer, Control.Arrow.Reader, Control.Arrow.Reader.Class, Control.Arrow.List.Class, Control.Arrow.Abort, Control.Arrow.Abort.Class, Control.Arrow.State, Control.Arrow.State.Class, Control.Arrow.Writer, Control.Arrow.Writer.Class+  Other-Modules: Util }