@@ -124,7 +124,7 @@ getDefaultTemplate :: (Maybe FilePath) -- ^ User data directory to search first
124124 -> String -- ^ Name of writer
125125 -> IO (Either E.IOException String)
126126getDefaultTemplate user writer = do
127− let format = takeWhile (`notElem` "+-") writer -- strip off extensions
127+ let format = takeWhile (`notElem` ("+-" :: String)) writer -- strip off extensions
128128 case format of
129129 "native" -> return $ Right ""
130130 "json" -> return $ Right ""
@@ -288,7 +288,7 @@ reservedWords :: [Text]
288288reservedWords = ["else","endif","for","endfor","sep"]
289289
290290skipEndline :: Parser ()
291−skipEndline = P.try $ P.skipMany (P.satisfy (`elem` " \t")) >> P.char '\n' >> return ()
291+skipEndline = P.try $ P.skipMany (P.satisfy (`elem` (" \t" :: String))) >> P.char '\n' >> return ()
292292
293293pConditional :: Parser Template
294294pConditional = do