diff --git a/yesod-core/Yesod/Internal/TestApi.hs b/yesod-core/Yesod/Internal/TestApi.hs index 2e0db12d..ffb1387e 100644 --- a/yesod-core/Yesod/Internal/TestApi.hs +++ b/yesod-core/Yesod/Internal/TestApi.hs @@ -1,10 +1,11 @@ -- -- | WARNING: This module exposes internal interfaces solely for the --- purpose of facilitating unit testing with cabal install. Library --- users should not import this module. +-- purpose of facilitating cabal-driven testing of said interfaces. +-- This module is NOT part of the public Yesod API and should NOT be +-- imported by library users. -- module Yesod.Internal.TestApi - ( Request (..), randomString, parseWaiRequest' + ( randomString, parseWaiRequest' ) where -import Yesod.Internal.Request (Request (..), randomString, parseWaiRequest') +import Yesod.Internal.Request (randomString, parseWaiRequest') diff --git a/yesod-core/test/Test/InternalRequest.hs b/yesod-core/test/Test/InternalRequest.hs index 57ed9799..c48df2e1 100644 --- a/yesod-core/test/Test/InternalRequest.hs +++ b/yesod-core/test/Test/InternalRequest.hs @@ -6,7 +6,8 @@ import System.Random (StdGen, mkStdGen) import Network.Wai as W import Network.Wai.Test -import Yesod.Internal.TestApi +import Yesod.Internal.TestApi (randomString, parseWaiRequest') +import Yesod.Request (Request (..)) import Test.Hspec randomStringSpecs :: [Spec]