diff --git a/Util.hs b/Util.hs
new file mode 100644
--- /dev/null
+++ b/Util.hs
@@ -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);
diff --git a/atl.cabal b/atl.cabal
--- a/atl.cabal
+++ b/atl.cabal
@@ -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
 }