preparing new albums
forgot a file
This commit is contained in:
parent
6fd8865944
commit
db49e2d4de
4 changed files with 12 additions and 0 deletions
|
@ -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
9
Handler/NewAlbum.hs
Normal 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"
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue