Fixing build breakage...

[Rakka.git] / Rakka / Resource / Users.hs

diff --git a/Rakka/Resource/Users.hs b/Rakka/Resource/Users.hs
index a4bf60204b047d54944afb08dadc62fd08386f13..ccf677c8ec24cf2646bf2bc3b6c3a95815d7628d 100644 (file)
--- a/Rakka/Resource/Users.hs
+++ b/Rakka/Resource/Users.hs
@@ -2,7 +2,6 @@ module Rakka.Resource.Users
     ( resUsers
     )
     where
-
 import           Control.Monad
 import           Control.Monad.Trans
 import           Data.Maybe
@@ -10,20 +9,19 @@ import           Network.HTTP.Lucu
 import           Rakka.Authorization
 import           Rakka.Environment
 import           Rakka.Resource
-import           Text.XML.HXT.Arrow hiding (when)
 
 
 resUsers :: Environment -> ResourceDef
 resUsers env
     = ResourceDef {
-                  resUsesNativeThread = False
-                 , resIsGreedy        = True
-                 , resGet             = Just $ handleGet env
-                 , resHead            = Nothing
-                 , resPost            = Nothing
-                 , resPut             = Just $ handlePut env
-                 , resDelete          = Just $ handleDelete env
-                 }
+       resUsesNativeThread = False
+      , resIsGreedy        = True
+      , resGet             = Just $ handleGet env
+      , resHead            = Nothing
+      , resPost            = Nothing
+      , resPut             = Just $ handlePut env
+      , resDelete          = Just $ handleDelete env
+      }
 
 
 {-
@@ -44,13 +42,13 @@ handleGet :: Environment -> Resource ()
 handleGet env
     = do userID <- getUserID env
         when (isNothing userID)
-                 $ abort Forbidden [] Nothing
+                  $ abort Forbidden [] Nothing
 
         path <- getPathInfo
         case path of
-                  []     -> returnUserList
-                  [name] -> returnUser name
-                  _      -> foundNoEntity Nothing
+          []     -> returnUserList
+          [name] -> returnUser name
+          _      -> foundNoEntity Nothing
     where
     returnUserList :: Resource ()
     returnUserList
@@ -92,17 +90,17 @@ handlePut env
 
         path <- getPathInfo
         case path of
-                  [name] -> do mimeType <- getContentType
-                               case mimeType of
-                                             Nothing
-                                                 -> abort BadRequest [] (Just "Missing Content-Type")
-                                             Just (MIMEType "text" "plain" _)
-                                                 -> do pass <- input defaultLimit
-                                                       addUser (envAuthDB env) name pass
-                                             Just t
-                                                 -> abort UnsupportedMediaType [] (Just $ "Unsupported media type: " ++ show t)
-                               setStatus Created
-                  _      -> abort BadRequest [] (Just "Invalid URI")
+          [name] -> do mimeType <- getContentType
+                       case mimeType of
+                         Nothing
+                             -> abort BadRequest [] (Just "Missing Content-Type")
+                         Just (MIMEType "text" "plain" _)
+                             -> do pass <- input defaultLimit
+                                   addUser (envAuthDB env) name pass
+                         Just t
+                             -> abort UnsupportedMediaType [] (Just $ "Unsupported media type: " ++ show t)
+                        setStatus Created
+          _      -> abort BadRequest [] (Just "Invalid URI")
 
 
 handleDelete :: Environment -> Resource ()
@@ -113,6 +111,6 @@ handleDelete env
 
         path <- getPathInfo
         case path of
-                  [name] -> delUser (envAuthDB env) name
-                  _      -> abort BadRequest [] (Just "Invalid URI")
+          [name] -> delUser (envAuthDB env) name
+          _      -> abort BadRequest [] (Just "Invalid URI")
         setStatus NoContent