diff --git a/hindent.cabal b/hindent.cabal
--- a/hindent.cabal
+++ b/hindent.cabal
@@ -1,5 +1,5 @@
 name:                hindent
-version:             4.5.1
+version:             4.5.2
 synopsis:            Extensible Haskell pretty printer
 description:         Extensible Haskell pretty printer. Both a library and an executable.
                      .
diff --git a/test/johan-tibell/expected/1.exp b/test/johan-tibell/expected/1.exp
--- a/test/johan-tibell/expected/1.exp
+++ b/test/johan-tibell/expected/1.exp
@@ -1,5 +1,6 @@
 getGitProvider :: EventProvider GitRecord ()
-getGitProvider = EventProvider
+getGitProvider = 
+    EventProvider
     { getModuleName = "Git"
     , getEvents = getRepoCommits
     }
diff --git a/test/johan-tibell/expected/2.exp b/test/johan-tibell/expected/2.exp
--- a/test/johan-tibell/expected/2.exp
+++ b/test/johan-tibell/expected/2.exp
@@ -1,5 +1,9 @@
 strToMonth :: String -> Int
-strToMonth month = case month of
-    "Jan" -> 1
-    "Feb" -> 2
-    _ -> error $ "Unknown month " ++ month
+strToMonth month = 
+    case month of
+        "Jan" -> 
+            1
+        "Feb" -> 
+            2
+        _ -> 
+            error $ "Unknown month " ++ month
diff --git a/test/johan-tibell/expected/3.exp b/test/johan-tibell/expected/3.exp
--- a/test/johan-tibell/expected/3.exp
+++ b/test/johan-tibell/expected/3.exp
@@ -3,4 +3,5 @@
     name <- getLine
     putStrLn $ greeting name
   where
-    greeting name = "Hello, " ++ name ++ "!"
+    greeting name = 
+        "Hello, " ++ name ++ "!"
diff --git a/test/johan-tibell/expected/4.exp b/test/johan-tibell/expected/4.exp
--- a/test/johan-tibell/expected/4.exp
+++ b/test/johan-tibell/expected/4.exp
@@ -1,5 +1,6 @@
 commitToEvent :: FolderPath -> TimeZone -> Commit -> Event.Event
-commitToEvent gitFolderPath timezone commit = Event.Event
+commitToEvent gitFolderPath timezone commit = 
+    Event.Event
     { pluginName = getModuleName getGitProvider
     , eventIcon = "glyphicon-cog"
     , eventDate = localTimeToUTC 
diff --git a/test/johan-tibell/expected/6.exp b/test/johan-tibell/expected/6.exp
--- a/test/johan-tibell/expected/6.exp
+++ b/test/johan-tibell/expected/6.exp
@@ -1,19 +1,25 @@
 f :: Int
 f x
-    | x <- Just x
-    , x <- Just x = 
-        case x of
-            Just x -> e
-    | otherwise = do
-        e
+  | x <- Just x
+  , x <- Just x = 
+      case x of
+          Just x -> 
+              e
+  | otherwise = do
+      e
   where
-    x = y
+    x = 
+        y
 
-g x = case x of
-    a -> x
+g x = 
+    case x of
+        a -> 
+            x
   where
-    foo = case x of
-        _ -> do
-            launchMissiles
+    foo = 
+        case x of
+            _ -> do
+                launchMissiles
       where
-        y = 2
+        y = 
+            2
diff --git a/test/johan-tibell/expected/7.exp b/test/johan-tibell/expected/7.exp
--- a/test/johan-tibell/expected/7.exp
+++ b/test/johan-tibell/expected/7.exp
@@ -1,8 +1,13 @@
 g x = 
-    let x = 1
+    
+    let x = 
+            1
     in x
   where
     foo = 
-        let y = 2
-            z = 3
+        
+        let y = 
+                2
+            z = 
+                3
         in y