cleanup

Foundation.hs

@@ -19,7 +19,6 @@ import Text.Jasmine (minifym)
 import Text.Hamlet (hamletFile)
 import Yesod.Core.Types (Logger)
 -- costom imports
-import Data.Maybe
 import Data.Text
 import Helper
 
@@ -73,7 +72,7 @@ instance Yesod App where
             uId <- return $ getUserIdFromText a
             user <- runDB $ getJust uId
             return $ userName user
-          otherwise -> do
+          Nothing -> do
             return ("" :: Text)
 
 

Handler/Home.hs

@@ -8,7 +8,3 @@ getHomeR = do
   recentMedia <- runDB $ selectList [] [Desc MediumTime]
   defaultLayout $ do
     $(widgetFile "home")
-
-postHomeR :: Handler Html
-postHomeR = do
-  error "not yet implemented"

Handler/Upload.hs

@@ -4,7 +4,6 @@ import Import as I
 import Data.Time
 import Data.Text
 import System.FilePath
-import Database.Persist.Types
 
 data TempMedium = TempMedium
   { tempMediumTitle :: Text
@@ -84,6 +83,7 @@ tagField = Field
   { fieldParse = \rawVals _ -> do
       case rawVals of
         [x] -> return $ Right $ Just $ splitOn " " x
+        _   -> return $ Left  $ error "unexpected tag list"
   , fieldView = \idAttr nameAttr _ eResult isReq ->
       [whamlet|<input id=#{idAttr} type="text" name=#{nameAttr}>|]
   , fieldEnctype = UrlEncoded

config/routes

@@ -3,11 +3,12 @@
 /favicon.ico FaviconR GET
 /robots.txt RobotsR GET
 
-/ HomeR GET POST
+/				HomeR GET
-/signup SignupR GET POST
+/signup				SignupR GET POST
-/login LoginR GET POST
+/login				LoginR GET POST
-/logout LogoutR GET
+/logout				LogoutR GET
-/activate/#Text ActivateR GET
+/activate/#Text			ActivateR GET
-/user/#UserId ProfileR GET
+/user/#UserId			ProfileR GET
-/upload UploadR GET POST
+/upload				UploadR GET POST
-/newalbum NewAlbumR GET POST
+/newalbum			NewAlbumR GET POST
+/user/#UserId/album/#AlbumId 	AlbumR GET