Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

fix the case of some links

  • Loading branch information...
commit e4d01fc646ccf25d04657081127b079adab68226 1 parent fc7afa0
Mark Lentczner mzero authored
4 seed/Index.hs
@@ -66,7 +66,7 @@ step3 = ("A Sample Page",
66 66 , toHtml "Be sure to read all the comments in the code you are about to see. \
67 67 \This is where the instructions will be."
68 68 , toHtml "Be brave."
69   - , toHtml "Now go to " +++ anchor ! [href "source?file=FirstPage.hs"] << "FirstPage.hs"
  69 + , toHtml "Now go to " +++ anchor ! [href "Source?file=FirstPage.hs"] << "FirstPage.hs"
70 70 , toHtml "Come back here when you're done."
71 71 ]
72 72 , p << "Congratulations! You're writing Haskell!"
@@ -82,7 +82,7 @@ step4 = ("Do the Tutorial",
82 82 \the page that will let you switch back and forth between editing the code \
83 83 \and viewing the page that that code renders."
84 84 , p << ("Start here: "
85   - +++ anchor ! [href "source?file=Chapter1/Step_1_1.hs&preview=1"] << "Chapter 1, Step 1")
  85 + +++ anchor ! [href "Source?file=Chapter1/Step_1_1.hs&preview=1"] << "Chapter 1, Step 1")
86 86 ])
87 87
88 88 modMessage :: Html
2  seed/lib/DevUtils.hs
@@ -211,7 +211,7 @@ editLink si = build `fmap` ee (srcClass si)
211 211 where
212 212 build n = anchor ! [href src, theclass "op-edit", title ("Edit the " ++ n)]
213 213 << thespan << "Edit"
214   - src = "source?file=" ++ srcPath si
  214 + src = "Source?file=" ++ srcPath si
215 215 ee SCPage = Just "page"
216 216 ee SCScript = Just "script"
217 217 ee SCText = Just "text"
2  seed/lib/Tutorial.hs
@@ -34,7 +34,7 @@ stepUrl s = "Chapter" ++ cn ++ "/Step_" ++ cn ++ "_" ++ sh
34 34 sh = show $ stepSt s
35 35
36 36 stepHref :: Step -> String
37   -stepHref s = "source?file=" ++ stepUrl s ++ ".hs" ++ p (stepType s)
  37 +stepHref s = "Source?file=" ++ stepUrl s ++ ".hs" ++ p (stepType s)
38 38 where
39 39 p Code = ""
40 40 p Slides = "&preview=1"
2  src/Main.hs
@@ -163,7 +163,7 @@ genericHandler = do
163 163 serveTemplateIfExists $ fullpath <.> "hs"
164 164 where
165 165 serveIndex :: FilePath -> Snap ()
166   - serveIndex fullpath = serveTemplateIfExists $ fullpath </> "index.hs"
  166 + serveIndex fullpath = serveTemplateIfExists $ fullpath </> "Index.hs"
167 167 serveTemplateIfExists :: FilePath -> Snap ()
168 168 serveTemplateIfExists tmplpath = do
169 169 routeWhenIO (doesFileExist tmplpath) $ serveTemplate tmplpath

0 comments on commit e4d01fc

Please sign in to comment.
Something went wrong with that request. Please try again.