happs-tutorial 0.4.2 → 0.4.3
raw patch · 2 files changed
+3/−3 lines, 2 filesdep ~hscolour
Dependency ranges changed: hscolour
Files
- happs-tutorial.cabal +2/−2
- src/Controller.hs +1/−1
happs-tutorial.cabal view
@@ -1,5 +1,5 @@ Name: happs-tutorial-Version: 0.4.2+Version: 0.4.3 Synopsis: A HAppS Tutorial that is is own demo Description: A nice way to learn how to build web sites with HAppS @@ -113,7 +113,7 @@ ViewStuff Build-Depends: base >= 3, HStringTemplate, mtl, bytestring, HAppS-Server, HAppS-Data, HAppS-State,- containers, pretty, pureMD5, directory, filepath, hscolour == 1.9, HTTP+ containers, pretty, pureMD5, directory, filepath, hscolour, HTTP
src/Controller.hs view
@@ -153,7 +153,7 @@ file <- liftIO $ readFile path prefs <- liftIO $ readColourPrefs let color :: String- color = HTML.hscolour prefs False False file+ color = HTML.hscolour prefs False False file file return . toResponse . HtmlString $ color -- Detects if a request ends in a .hs.