Update use of Fail to use Text :: Symbol -> Doc

Author: LiamGoodacre

src/Data/List/ZipList.purs

@@ -6,7 +6,7 @@ module Data.List.ZipList
   ) where
 
 import Prelude
-import Prim.TypeError (class Fail)
+import Prim.TypeError (class Fail, Text)
 import Control.Alt (class Alt)
 import Control.Alternative (class Alternative)
 import Control.Plus (class Plus)
@@ -55,12 +55,12 @@ instance plusZipList :: Plus ZipList where
 instance alternativeZipList :: Alternative ZipList
 
 instance zipListIsNotBind
-  :: Fail """
+  :: Fail (Text """
     ZipList is not Bind. Any implementation would break the associativity law.
 
     Possible alternatives:
         Data.List.List
         Data.List.Lazy.List
-    """
+    """)
   => Bind ZipList where
     bind = unsafeCrashWith "bind: unreachable"