preparing new albums

forgot a file
This commit is contained in:
nek0 2014-08-14 00:49:37 +02:00
parent 6fd8865944
commit db49e2d4de
4 changed files with 12 additions and 0 deletions

View file

@ -33,6 +33,7 @@ import Handler.Login
import Handler.Activate import Handler.Activate
import Handler.Profile import Handler.Profile
import Handler.Upload import Handler.Upload
import Handler.NewAlbum
-- This line actually creates our YesodDispatch instance. It is the second half -- This line actually creates our YesodDispatch instance. It is the second half
-- of the call to mkYesodData which occurs in Foundation.hs. Please see the -- of the call to mkYesodData which occurs in Foundation.hs. Please see the

9
Handler/NewAlbum.hs Normal file
View file

@ -0,0 +1,9 @@
module Handler.NewAlbum where
import Import
getNewAlbumR :: Handler Html
getNewAlbumR = error "Not yet implemented: getNewAlbumR"
postNewAlbumR :: Handler Html
postNewAlbumR = error "Not yet implemented: postNewAlbumR"

View file

@ -10,3 +10,4 @@
/activate/#Text ActivateR GET /activate/#Text ActivateR GET
/user/#Text ProfileR GET /user/#Text ProfileR GET
/upload UploadR GET POST /upload UploadR GET POST
/newalbum NewAlbumR GET POST

View file

@ -25,6 +25,7 @@ library
Handler.Activate Handler.Activate
Handler.Profile Handler.Profile
Handler.Upload Handler.Upload
Handler.NewAlbum
if flag(dev) || flag(library-only) if flag(dev) || flag(library-only)
cpp-options: -DDEVELOPMENT cpp-options: -DDEVELOPMENT