Permalink
Browse files

Partial functions strike again

  • Loading branch information...
1 parent a55cee0 commit 553774f5ecfc7c2b0df63f1804b4f8b03af1e5a6 @mightybyte mightybyte committed Dec 11, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Snap/Snaplet/HeistNoClass.hs
@@ -374,7 +374,7 @@ serveURI = do
p <- getSafePath
-- Allows users to prefix template filenames with an underscore to prevent
-- the template from being served.
- if head p == '_' then pass else return $ B.pack p
+ if take 1 p == "_" then pass else return $ B.pack p
------------------------------------------------------------------------------

0 comments on commit 553774f

Please sign in to comment.