barley 0.3 → 0.3.0.1

raw patch · 5 files changed

+6/−6 lines, 5 files

Files

barley.cabal +1/−1
seed/Index.hs +2/−2
seed/lib/DevUtils.hs +1/−1
seed/lib/Tutorial.hs +1/−1
src/Main.hs +1/−1

barley.cabal view

@@ -1,5 +1,5 @@ Name:                barley-Version:             0.3+Version:             0.3.0.1 License:             OtherLicense License-file:        LICENSE Author:              Johan Tibell, Mark Lentczner

seed/Index.hs view

@@ -66,7 +66,7 @@       , toHtml "Be sure to read all the comments in the code you are about to see. \                \This is where the instructions will be."       , toHtml "Be brave."-      , toHtml "Now go to " +++ anchor ! [href "source?file=FirstPage.hs"] << "FirstPage.hs"+      , toHtml "Now go to " +++ anchor ! [href "Source?file=FirstPage.hs"] << "FirstPage.hs"       , toHtml "Come back here when you're done."       ]   , p << "Congratulations! You're writing Haskell!"@@ -82,7 +82,7 @@           \the page that will let you switch back and forth between editing the code \           \and viewing the page that that code renders."   , p << ("Start here: " -          +++ anchor ! [href "source?file=Chapter1/Step_1_1.hs&preview=1"] << "Chapter 1, Step 1")+          +++ anchor ! [href "Source?file=Chapter1/Step_1_1.hs&preview=1"] << "Chapter 1, Step 1")   ])    modMessage :: Html

seed/lib/DevUtils.hs view

@@ -211,7 +211,7 @@   where     build n = anchor ! [href src, theclass "op-edit", title ("Edit the " ++ n)]                 << thespan << "Edit"-    src = "source?file=" ++ srcPath si+    src = "Source?file=" ++ srcPath si     ee SCPage = Just "page"     ee SCScript = Just "script"     ee SCText = Just "text"

seed/lib/Tutorial.hs view

@@ -34,7 +34,7 @@    sh = show $ stepSt s  stepHref :: Step -> String-stepHref s = "source?file=" ++ stepUrl s ++ ".hs" ++ p (stepType s)+stepHref s = "Source?file=" ++ stepUrl s ++ ".hs" ++ p (stepType s)   where     p Code = ""     p Slides = "&preview=1"

src/Main.hs view

@@ -163,7 +163,7 @@             serveTemplateIfExists $ fullpath <.> "hs"   where     serveIndex :: FilePath -> Snap ()-    serveIndex fullpath = serveTemplateIfExists $ fullpath </> "index.hs"+    serveIndex fullpath = serveTemplateIfExists $ fullpath </> "Index.hs"     serveTemplateIfExists :: FilePath -> Snap ()     serveTemplateIfExists tmplpath = do         routeWhenIO (doesFileExist tmplpath) $ serveTemplate tmplpath