preparing new albums

forgot a file

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

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"

config/routes

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

eidolon.cabal

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