Permalink
Browse files

refactor: hlint

  • Loading branch information...
dzhus committed Feb 9, 2018
1 parent 599fc39 commit d4013082e61c994ddca23b7f2b7dfb392794fc05
Showing with 3 additions and 4 deletions.
  1. +1 −2 example/Site.hs
  2. +2 −2 src/Snap/Snaplet/RedisDB.hs
View
@@ -29,7 +29,7 @@ import Snap.Snaplet.Session
import Snap.Snaplet.Session.Backends.RedisSession
import Snap.Util.FileServe
import Heist
-import Text.XmlHtml hiding (render)
+import Text.XmlHtml
------------------------------------------------------------------------------
@@ -94,4 +94,3 @@ app = makeSnaplet "app" "An snaplet example application." Nothing $ do
main :: IO ()
main = serveSnaplet defaultConfig app
-
@@ -110,8 +110,8 @@ redisDBInitConf = makeSnaplet "redis" "Redis snaplet." Nothing $ do
let def = defaultConnectInfo
return $ def { connectHost = fromMaybe (connectHost def) cHost
- , connectPort = fromMaybe (connectPort def)
- (unConfiguredPortID <$> cPort)
+ , connectPort = maybe (connectPort def)
+ unConfiguredPortID cPort
, connectAuth = cAuth
, connectMaxConnections =
fromMaybe (connectMaxConnections def) cCons

0 comments on commit d401308

Please sign in to comment.