Skip to content

Commit

Permalink
fix build issues
Browse files Browse the repository at this point in the history
  • Loading branch information
agrafix committed Jul 27, 2015
1 parent fe2b664 commit e5a34a3
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/Web/Spock/Safe.hs
Original file line number Diff line number Diff line change
Expand Up @@ -39,15 +39,15 @@ import qualified Web.Spock.Internal.Core as C

import Control.Applicative
import Control.Monad.Trans
import Data.HVect hiding (head)
import Data.Monoid
import Data.HVect
import Network.HTTP.Types.Method
import Prelude hiding (head)
import Web.Routing.SafeRouting hiding (renderRoute)
import qualified Web.Routing.SafeRouting as SR
import qualified Data.Text as T
import qualified Network.HTTP.Types as Http
import qualified Network.Wai as Wai
import qualified Web.Routing.SafeRouting as SR

type SpockM conn sess st a = SpockT (WebStateM conn sess st) a

Expand Down Expand Up @@ -188,4 +188,4 @@ hookSafeActions =

-- | Render a route applying path pieces
renderRoute :: Path as -> HVectElim as T.Text
renderRoute route = hVectCurryExpl (pathToRep route) (T.cons '/' . SR.renderRoute route)
renderRoute route = curryExpl (pathToRep route) (T.cons '/' . SR.renderRoute route)

0 comments on commit e5a34a3

Please # to comment.