Permalink
Browse files

Drop redundant imports

  • Loading branch information...
1 parent da7e68b commit 9e7e4074400f747923b7c3cc6411acc369bd4042 @dzhus committed Feb 29, 2012
Showing with 2 additions and 3 deletions.
  1. +2 −3 src/Main.hs
View
@@ -19,7 +19,6 @@ import Data.Aeson.Encode.Pretty
import qualified Data.Aeson.Types as A
import qualified Data.Text as T (pack)
-import qualified Data.ByteString as B (ByteString)
import qualified Data.ByteString.Lazy as LB (putStr)
import qualified Data.ByteString.UTF8 as BU (fromString)
import qualified Data.HashMap.Lazy as M
@@ -29,8 +28,6 @@ import System.Console.CmdArgs.Implicit
import Snap.Snaplet.Auth
import Snap.Snaplet.Auth.Backends.JsonFile
-import Web.ClientSession
-
-- | Rank-2 type for action applicable to AuthManager and AuthUser.
type AuthUserAction = IAuthBackend r => r -> AuthUser -> IO ()
@@ -147,11 +144,13 @@ data Options = Options
}
deriving (Show, Data, Typeable)
+
modifyHelp :: String
modifyHelp = "Modify password or replace roles and meta of existing user. " ++
"If any of -p/-r/-k,-v flags is not set, previous value " ++
"of that flag is preserved for account"
+
main :: IO ()
main =
let

0 comments on commit 9e7e407

Please sign in to comment.