From cd246971582639666bb1afe1b51bbd3db1ac744a Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sat, 2 Oct 2010 11:54:47 +0200 Subject: Disable partial functions (thanks chrisdone) --- src/Text/Hakyll/Internal/Template.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/Text/Hakyll/Internal/Template.hs') diff --git a/src/Text/Hakyll/Internal/Template.hs b/src/Text/Hakyll/Internal/Template.hs index bd9121b..15a2c8c 100644 --- a/src/Text/Hakyll/Internal/Template.hs +++ b/src/Text/Hakyll/Internal/Template.hs @@ -29,15 +29,13 @@ fromString = Template . fromString' fromString' [] = [] fromString' string | "$$" `isPrefixOf` string = - EscapeCharacter : (fromString' $ tail tail') + EscapeCharacter : (fromString' $ drop 2 string) | "$" `isPrefixOf` string = - let (key, rest) = span isAlphaNum tail' + let (key, rest) = span isAlphaNum $ drop 1 string in Identifier key : fromString' rest | otherwise = let (chunk, rest) = break (== '$') string in Chunk chunk : fromString' rest - where - tail' = tail string -- | Read a @Template@ from a file. This function might fetch the @Template@ -- from the cache, if available. -- cgit v1.2.3