hunt warnings

This commit is contained in:
nek0 2022-04-15 20:51:22 +02:00
parent bb89288507
commit 645f378bec
4 changed files with 6 additions and 3 deletions

View file

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

View file

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

View file

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

View file

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