hunt warnings

src/Control/Avatar.hs

@@ -30,13 +30,13 @@ avatarGet aid = do
   as <- liftIO $ avatarSelectById aid conn
   if null as
   then
-    return ((\_ respond -> respond $ responseStream status404 [] $
+    return ((\_ response -> response $ responseStream status404 [] $
       \write flush -> do
         write "No avatar found."
         flush
     ) :: Application)
   else
-    return ((\_ respond -> respond $ responseStream status200 [(hETag, encodeUtf8 (avatarHash (head as)))] $
+    return ((\_ response -> response $ responseStream status200 [(hETag, encodeUtf8 (avatarHash (head as)))] $
       \write flush -> do
         write $ byteString $ encodeUtf8 $ avatarData $ head as
         flush

src/Control/Journal.hs

@@ -5,7 +5,6 @@ import Servant
 
 import Control.Monad (void)
 import Control.Monad.Reader (asks)
-import Control.Monad.Extra (anyM)
 
 -- internal imports
 

src/Control/Role.hs

@@ -3,6 +3,8 @@ module Control.Role where
 
 import Servant
 
+import Control.Monad (void)
+
 import Control.Monad.Reader (asks)
 
 -- internal imports

src/Util.hs

@@ -11,6 +11,8 @@ import Data.Maybe (fromMaybe)
 
 import Data.Profunctor.Product.Default (Default)
 
+import Data.String (fromString)
+
 import qualified Data.Text as T
 
 import qualified Data.Text.Encoding as E