diff --git a/Application.hs b/Application.hs index 3e4cea3..3e50b82 100644 --- a/Application.hs +++ b/Application.hs @@ -33,6 +33,7 @@ import Handler.Login import Handler.Activate import Handler.Profile import Handler.Upload +import Handler.NewAlbum -- 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 diff --git a/Handler/NewAlbum.hs b/Handler/NewAlbum.hs new file mode 100644 index 0000000..084e4ff --- /dev/null +++ b/Handler/NewAlbum.hs @@ -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" diff --git a/config/routes b/config/routes index bf6afa4..8814789 100644 --- a/config/routes +++ b/config/routes @@ -10,3 +10,4 @@ /activate/#Text ActivateR GET /user/#Text ProfileR GET /upload UploadR GET POST +/newalbum NewAlbumR GET POST diff --git a/eidolon.cabal b/eidolon.cabal index c9d4549..1101388 100644 --- a/eidolon.cabal +++ b/eidolon.cabal @@ -25,6 +25,7 @@ library Handler.Activate Handler.Profile Handler.Upload + Handler.NewAlbum if flag(dev) || flag(library-only) cpp-options: -DDEVELOPMENT