Polish comments.

[haskell/symantic.git] / symantic-document / Language / Symantic / Document / Valid.hs

diff --git a/symantic-document/Language/Symantic/Document/Valid.hs b/symantic-document/Language/Symantic/Document/Valid.hs
index 75852dc3cd588b883d8a1f4c8cd3a5c2d2047acf..e69b7f404008f3349380326c764d557d92b78465 100644 (file)
--- a/symantic-document/Language/Symantic/Document/Valid.hs
+++ b/symantic-document/Language/Symantic/Document/Valid.hs
@@ -3,7 +3,7 @@ module Language.Symantic.Document.Valid where
 import Control.Applicative (Applicative(..))
 import Control.Monad (Monad(..))
 import Data.Eq (Eq(..))
-import Data.Foldable (any)
+import Data.Foldable (elem)
 import Data.Function (($), (.), id)
 import Data.Functor (Functor(..))
 import Data.Int (Int)
@@ -66,7 +66,7 @@ instance (Doc_Text repr, Semigroup repr) => Doc_Text (Valid repr) where
        ltext     = pure . ltext
        charH '\n'= KO [Error_Valid_not_horizontal $ TL.singleton '\n']
        charH c   = Ok $ charH c
-       stringH t | any (== '\n') t = KO [Error_Valid_not_horizontal $ fromString t]
+       stringH t | '\n' `elem` t = KO [Error_Valid_not_horizontal $ fromString t]
        stringH t = Ok $ stringH t
        textH   t | T.any (== '\n') t = KO [Error_Valid_not_horizontal $ TL.fromStrict t]
        textH   t = Ok $ textH t