Fixes to compile with 6.12.1

This commit is contained in:
Michael Snoyman 2009-12-23 08:45:59 +02:00
parent 336f900849
commit 29afbd1b38
4 changed files with 1 additions and 4 deletions

View File

@ -31,7 +31,6 @@ module Data.Object.Html
import Data.Generics
import Data.Object.Text
import Data.Object.Json
import Data.Convertible.Text
import qualified Data.Text.Lazy as TL
import Web.Encodings
import Text.StringTemplate.Classes

View File

@ -2,7 +2,6 @@ module Hack.Middleware.CleanPath (cleanPath, splitPath) where
import Hack
import qualified Data.ByteString.Lazy as BS
import Data.List
import Web.Encodings
import Data.List.Split

View File

@ -27,7 +27,6 @@ import System.Directory (doesFileExist)
import Control.Applicative ((<$>))
import Yesod
import Yesod.Rep
import Data.List (intercalate)
type FileLookup = FilePath -> IO (Maybe B.ByteString)

View File

@ -246,7 +246,7 @@ checkRPNodes :: (MonadFailure OverlappingPatterns m,
=> [RPNode]
-> m [RPNode]
checkRPNodes nodes = do
checkPatterns $ map (\(RPNode r _) -> cs r) nodes -- FIXME ugly
_ <- checkPatterns $ map (\(RPNode r _) -> cs r) nodes -- FIXME ugly
mapM_ (\(RPNode _ v) -> checkVerbMap v) nodes
return nodes
where