diff --git a/src/Control/Avatar.hs b/src/Control/Avatar.hs index cddd244..9d6430c 100644 --- a/src/Control/Avatar.hs +++ b/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 diff --git a/src/Control/Journal.hs b/src/Control/Journal.hs index 37690df..84e758d 100644 --- a/src/Control/Journal.hs +++ b/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 diff --git a/src/Control/Role.hs b/src/Control/Role.hs index 7cc48c1..a10e7c1 100644 --- a/src/Control/Role.hs +++ b/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 diff --git a/src/Util.hs b/src/Util.hs index 5a4cd6f..ebba176 100644 --- a/src/Util.hs +++ b/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