Permalink
Browse files

snap static-file benchmark: use fileServeSingle

  • Loading branch information...
1 parent 2607275 commit 9054ffe70a48345f0658147af64dca139164684c @snoyberg snoyberg committed Jan 13, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 static-file/snap.hs
View
@@ -9,7 +9,7 @@ import Snap.Types
import Snap.Util.FileServe
site :: Snap ()
-site = fileServe "."
+site = fileServeSingle' "text/plain" "static-file.txt"
main :: IO ()
main =

0 comments on commit 9054ffe

Please sign in to comment.