Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 3789dc43d1
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (19 sloc) 0.434 kb
module Book.Routes where
import Prelude (IO, Maybe)
import Yesod
import Data.Text (Text)
import Data.IORef (IORef)
import Book (Book)
import Filesystem.Path (FilePath)
data BookSub = BookSub
{ bsBook :: IORef Book
, bsRoot :: FilePath
, bsReload :: IO ()
, bsTitle :: Html
, bsWarning :: Maybe Html
mkYesodSubData "BookSub" [parseRoutes|
/ BookHomeR GET
/#Text ChapterR GET
/image/#Text BookImageR GET
Jump to Line
Something went wrong with that request. Please try again.