Skip to content
Browse files

Lint

  • Loading branch information...
1 parent c81e9bf commit 7ef43cdf4f9e55094280083c25ba187ef56091ec @MichaelXavier committed
Showing with 2 additions and 5 deletions.
  1. +1 −1 Bucketeer/Testing/Persistence.hs
  2. +0 −1 Bucketeer/Timers.hs
  3. +1 −3 Bucketeer/WebServer.hs
View
2 Bucketeer/Testing/Persistence.hs
@@ -186,7 +186,7 @@ assertResponse x resp = void $ assertEqual message resp expected
withCleanup :: Connection
-> IO a
-> IO a
-withCleanup conn io = bracket_ clean clean io
+withCleanup conn = bracket_ clean clean
where clean = runRedis conn cleanup
overwriteKey :: Connection
View
1 Bucketeer/Timers.hs
@@ -4,7 +4,6 @@ import Bucketeer.Manager
import Bucketeer.Refiller (runRefiller)
import Bucketeer.Types
-import Control.Applicative ((<$>))
import Control.Concurrent (forkIO)
import Data.List(foldl')
import Database.Redis (Connection)
View
4 Bucketeer/WebServer.hs
@@ -27,9 +27,7 @@ import Bucketeer.Util (forkWaitingIO,
maybeRead)
import Bucketeer.WebServer.Util
-import Control.Applicative ((<$>),
- (<*>),
- pure)
+import Control.Applicative ((<$>))
import Control.Concurrent (forkIO,
ThreadId,
killThread)

0 comments on commit 7ef43cd

Please sign in to comment.
Something went wrong with that request. Please try again.