diff --git a/Text/Shakespeare/Text.hs b/Text/Shakespeare/Text.hs
--- a/Text/Shakespeare/Text.hs
+++ b/Text/Shakespeare/Text.hs
@@ -74,7 +74,7 @@
 
 text = QuasiQuoter { quoteExp = \s -> do
     rs <- settings
-    quoteExp (shakespeare rs) s
+    quoteExp (shakespeare rs) $ filter (/='\r') s
     }
 
 
diff --git a/shakespeare-text.cabal b/shakespeare-text.cabal
--- a/shakespeare-text.cabal
+++ b/shakespeare-text.cabal
@@ -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
diff --git a/test/ShakespeareTextTest.hs b/test/ShakespeareTextTest.hs
--- a/test/ShakespeareTextTest.hs
+++ b/test/ShakespeareTextTest.hs
@@ -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