diff --git a/Text/PrettyPrint/Mainland.hs b/Text/PrettyPrint/Mainland.hs
--- a/Text/PrettyPrint/Mainland.hs
+++ b/Text/PrettyPrint/Mainland.hs
@@ -531,17 +531,17 @@
           x `Cat` y  -> be p p' k f (Cons i x (Cons i y ds))
           Nest j x   -> let j' = i + j in
                         j' `seq` be p p' k f (Cons j' x ds)
-          x `Alt` y  -> better k (be p p' k f (Cons i x ds))
-                                 (be p p' k f (Cons i y ds))
+          x `Alt` y  -> better k f (be p p' k id (Cons i x ds))
+                                   (be p p' k id (Cons i y ds))
           SrcLoc loc -> be p (merge p' loc) k f ds
           Column g   -> be p p' k f (Cons i (g k) ds)
           Nesting g  -> be p p' k f (Cons i (g i) ds)
       where
         (p'', pragma) = lineloc p p'
 
-    better :: Int -> RDoc -> RDoc -> RDoc
-    better k x y | fits (w - k) x = x
-                 | otherwise      = y
+    better :: Int -> RDocS -> RDoc -> RDoc -> RDoc
+    better k f x y | fits (w - k) x = f x
+                   | otherwise      = f y
 
     fits :: Int -> RDoc -> Bool
     fits  w  _        | w < 0 = False
diff --git a/mainland-pretty.cabal b/mainland-pretty.cabal
--- a/mainland-pretty.cabal
+++ b/mainland-pretty.cabal
@@ -1,5 +1,5 @@
 name:           mainland-pretty
-version:        0.1
+version:        0.1.0.1
 cabal-version:  >= 1.6
 license:        BSD3
 license-file:   LICENSE