shakespeare-text 1.0.0.8 → 1.0.0.9

raw patch · 3 files changed

+13/−4 lines, 3 files

Files

• Text/Shakespeare/Text.hs +1/−1
• shakespeare-text.cabal +10/−1
• test/ShakespeareTextTest.hs +2/−2

@@ -74,7 +74,7 @@  text = QuasiQuoter { quoteExp = \s -> do     rs <- settings-    quoteExp (shakespeare rs) s+    quoteExp (shakespeare rs) $ filter (/='\r') s     }  

@@ -1,5 +1,5 @@ name:            shakespeare-text-version:         1.0.0.8+version:         1.0.0.9 license:         MIT license-file:    LICENSE author:          Greg Weber <greg@gregweber.info>@@ -41,6 +41,9 @@     if impl(ghc >= 7.4)        cpp-options: -DGHC_7_4 +    if os(windows)+      CPP-Options: "-DWINDOWS"+ test-suite test     hs-source-dirs: test     main-is: ../test.hs@@ -53,6 +56,12 @@                  , HUnit                  , hspec            >= 1.3                  , text             >= 0.7     && < 0.12++    if impl(ghc >= 7.4)+       cpp-options: -DGHC_7_4++    if os(windows)+      CPP-Options: "-DWINDOWS"   source-repository head

@@ -25,13 +25,13 @@ @{Home}
 @?{urlp}
 ^{jmixin}
-|] $ intercalate "\r\n"
+|] $ intercalate "\n"
         [ "שלום"
         , var
         , "url"
         , "url?p=q"
         , "var x;"
-        ] ++ "\r\n"
+        ] ++ "\n"
 
 
     it "textFile" $ do