Permalink
Browse files

explicitly uses Text

  • Loading branch information...
1 parent f248c5d commit 7671456e0ad3841862df74a9f0ee4939e4fb6ee5 @ujihisa ujihisa committed Jan 11, 2012
Showing with 4 additions and 2 deletions.
  1. +2 −1 HaskellKoans.cabal
  2. +2 −1 test/ParserCombinators.hs
View
@@ -71,7 +71,8 @@ Executable koans
HUnit,
mtl,
test-framework,
- test-framework-hunit
+ test-framework-hunit,
+ text
HS-source-dirs:
test
@@ -5,6 +5,7 @@ import Test.Framework (Test)
import Test.Framework.Providers.HUnit (testCase)
import Test.HUnit (assertBool, assertEqual, Assertion)
import qualified Data.Attoparsec.Text as P
+import Data.Text (Text)
tests :: [Test]
tests =
@@ -52,7 +53,7 @@ testSymbolParser = testCase "symbol parser" $ do
assertParse "a/b" $ P.parseOnly parser "a/b"
assertParse "a/b" $ P.parseOnly parser "a/b c"
-data Atom = AInt Int | AStr String deriving (Eq, Show)
+data Atom = AInt Int | AStr Text deriving (Eq, Show)
testAtomParser :: Test
testAtomParser = testCase "atom parser" $ do

0 comments on commit 7671456

Please sign in to comment.