From fbef75cf7abc64a259efce96ab49abe5471989f0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=B6nke=20Hahn?= <soenkehahn@gmail.com>
Date: Wed, 6 Apr 2016 17:54:31 +0800
Subject: [PATCH] formatting change

---
 test/ReserveSpec.hs | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/test/ReserveSpec.hs b/test/ReserveSpec.hs
index 10976dc..0ae6857 100644
--- a/test/ReserveSpec.hs
+++ b/test/ReserveSpec.hs
@@ -12,25 +12,26 @@ import           System.IO
 import           Network
 import           Network.HTTP.Conduit
 import           Data.String.Interpolate
+import           Data.String.Interpolate.Util
 
 import           Options
 import           Reserve
 
 appWithResponse :: String -> IO ()
-appWithResponse response = writeFile "app.hs" [i|
-{-# LANGUAGE OverloadedStrings #-}
-module Main (main) where
+appWithResponse response = writeFile "app.hs" $ unindent [i|
+  {-# LANGUAGE OverloadedStrings #-}
+  module Main (main) where
 
-import Network.Wai
-import Network.HTTP.Types
-import Network.Wai.Handler.Warp (run)
-import qualified Data.ByteString.Lazy.Char8 as B
+  import Network.Wai
+  import Network.HTTP.Types
+  import Network.Wai.Handler.Warp (run)
+  import qualified Data.ByteString.Lazy.Char8 as B
 
-app :: Application
-app _ = ($ responseLBS status200 [("Content-Type", "text/plain")] #{response})
+  app :: Application
+  app _ = ($ responseLBS status200 [("Content-Type", "text/plain")] #{response})
 
-main :: IO ()
-main = run 3000 app
+  main :: IO ()
+  main = run 3000 app
 |]
 
 literal :: String -> String