Permalink
Browse files

cleanup

  • Loading branch information...
dzhus committed Mar 4, 2012
1 parent 2d3ddcd commit 05fb0300912ede5a135db78fe88e4e70a05e0d8a
Showing with 7 additions and 6 deletions.
  1. +7 −6 src/Main.hs
View
@@ -33,6 +33,7 @@ import Snap.Snaplet.Auth.Backends.JsonFile
type AuthUserAction = IAuthBackend r => r -> AuthUser -> IO ()
+-- | Action for --read mode: show pretty JSON auth user entry.
readAction :: AuthUserAction
readAction _ au = LB.putStr $ encodePretty au
@@ -134,13 +135,13 @@ instance Default OpMode where
-- | Holds all options passed from command-line.
data Options = Options
- { mode :: OpMode
- , user :: Maybe String
+ { mode :: OpMode
+ , user :: Maybe String
, password :: Maybe String
- , json :: String
- , role :: [String]
- , key :: [String]
- , value :: [String]
+ , json :: String
+ , role :: [String]
+ , key :: [String]
+ , value :: [String]
}
deriving (Show, Data, Typeable)

0 comments on commit 05fb030

Please sign in to comment.