diff --git a/app/WebSocketApp.hs b/app/WebSocketApp.hs
index 9021e72..ba6316e 100644
--- a/app/WebSocketApp.hs
+++ b/app/WebSocketApp.hs
@@ -13,9 +13,10 @@ import Control.Monad.Reader.Class(ask)
 import Data.Aeson
 import qualified Data.Aeson.TickLeiste as TL
 import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as BL
+import qualified Data.ByteString.Lazy as BL(toStrict)
 import qualified Data.Map.Strict as M
-import Data.Maybe (maybe)
+import Data.Maybe (maybe) -- should be replaced by either
+import Data.Either (either)
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
 import qualified Data.TickLeiste as TL
@@ -104,6 +105,7 @@ clientLogic client sessionStateMVar = do
     -- the next line is a bit ugly, maybe there is a better way?
     -- maybe refactor, so that the request Handler can choose to lock or not. -- TODO
     (\request -> modifyMVar_ sessionStateMVar (\sessionState -> requestHandler client sessionState request))
+    -- TODO maybe (hihi) a decodeEithor for better logging?
     (decodeStrict msg :: Maybe TL.JSONRequest)
   clientLogic client sessionStateMVar