diff --git a/Handler/Medium.hs b/Handler/Medium.hs
index 9f7a83c..658e048 100644
--- a/Handler/Medium.hs
+++ b/Handler/Medium.hs
@@ -1,7 +1,6 @@
 module Handler.Medium where
 
 import Import
-import Helper
 import Data.Time
 import Data.Maybe
 import qualified Data.Text as T
@@ -24,14 +23,14 @@ getMediumR mediumId = do
           return $ Just $ getUserIdFromText tempUserId
         Nothing ->
           return Nothing
-      userSlug <- case userId of
+      userSl <- case userId of
         Just uId -> do
           u <- runDB $ getJust uId
           return $ Just $ userSlug u
         Nothing ->
           return Nothing
       presence <- return $ (userId == (Just ownerId) || userId == Just (albumOwner album))
-      (commentWidget, enctype) <- generateFormPost $ commentForm userId userSlug mediumId Nothing
+      (commentWidget, enctype) <- generateFormPost $ commentForm userId userSl mediumId Nothing
       comments <- runDB $ selectList [CommentOrigin ==. mediumId, CommentParent ==. Nothing] [Desc CommentTime]
       replies <- runDB $ selectList [CommentOrigin ==. mediumId, CommentParent !=. Nothing] [Desc CommentTime]
       defaultLayout $ do
diff --git a/Handler/Signup.hs b/Handler/Signup.hs
index 2cc3448..4faf53e 100644
--- a/Handler/Signup.hs
+++ b/Handler/Signup.hs
@@ -2,13 +2,9 @@
 module Handler.Signup where
 
 import Import as I
-import System.Random
 import Data.Text as T
 import Data.Text.Encoding
-import Data.ByteString as B
 import Data.Maybe
-import Network.Mail.Mime
-import Text.Blaze.Html.Renderer.Utf8
 
 getSignupR :: Handler Html
 getSignupR = do