diff --git a/source/library/Language/Haskell/Brittany/Internal/Transformations/T1_Alt.hs b/source/library/Language/Haskell/Brittany/Internal/Transformations/T1_Alt.hs
index ccdd985..36475d1 100644
--- a/source/library/Language/Haskell/Brittany/Internal/Transformations/T1_Alt.hs
+++ b/source/library/Language/Haskell/Brittany/Internal/Transformations/T1_Alt.hs
@@ -844,7 +844,10 @@ getSpacings limit bridoc = preFilterLimit <$> rec bridoc
         -- counterexample would be anything like Seq[Lit "foo", Lines].
         lSpss <- map filterAndLimit <$> rec `mapM` ls
         let
-          worbled = fmap reverse $ sequence $ reverse $ lSpss
+          worbled = sequence $ case lSpss of
+            [] -> []
+            [x] -> [x]
+            (x1:xR) -> x1 : map reverse xR
           sumF lSps@(lSp1 : _) =
             VerticalSpacing (_vs_sameLine lSp1)
                             (spMakePar $ maxVs lSps)