1. Luke Plant
  2. haskellblog

Commits

Luke Plant  committed 559e347

Pulled out IsString instance to separate module

  • Participants
  • Parent commits 943cbbd
  • Branches default

Comments (0)

Files changed (2)

File src/Web/Utils.hs

View file
+module Web.Utils where
+
+import Data.ByteString.Lazy.Char8 (ByteString)
+import qualified Data.ByteString.Lazy.Char8 as BS
+
+import GHC.Exts( IsString(..) )
+instance IsString ByteString where
+    fromString = BS.pack

File testsuite/tests/Tests/Web/Response.hs

View file
 import Test.HUnit
 import Data.ByteString.Lazy.Char8 (ByteString)
 import qualified Data.ByteString.Lazy.Char8 as BS
-
-import GHC.Exts( IsString(..) )
-instance IsString ByteString where
-    fromString = BS.pack
+import Web.Utils
 
 testAddContent1 = "Hello" ~=? (content $ addContent "Hello" $ emptyResponse)