From 5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Nov 2017 23:56:40 +0100
Subject: Setup stylish-haskell

---
 server/src/Resource.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'server/src/Resource.hs')

diff --git a/server/src/Resource.hs b/server/src/Resource.hs
index f52bbfa..a12a0f2 100644
--- a/server/src/Resource.hs
+++ b/server/src/Resource.hs
@@ -9,10 +9,10 @@ module Resource
   , statusDuring
   ) where
 
-import Data.Maybe (fromMaybe)
-import Data.Map (Map)
-import qualified Data.Map as M
-import Data.Time.Clock (UTCTime)
+import           Data.Map        (Map)
+import qualified Data.Map        as M
+import           Data.Maybe      (fromMaybe)
+import           Data.Time.Clock (UTCTime)
 
 class Resource a where
   resourceCreatedAt :: a -> UTCTime
@@ -34,7 +34,7 @@ groupByStatus start end resources =
     (\m resource ->
       case statusDuring start end resource of
         Just status -> M.insertWith (++) status [resource] m
-        Nothing -> m
+        Nothing     -> m
     )
     M.empty
     resources
-- 
cgit v1.2.3