Fixes to compile with 6.12.1
This commit is contained in:
parent
336f900849
commit
29afbd1b38
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
@ -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)
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user