summaryrefslogtreecommitdiff
path: root/test/Arbitrary.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/Arbitrary.hs')
-rw-r--r--test/Arbitrary.hs11
1 files changed, 3 insertions, 8 deletions
diff --git a/test/Arbitrary.hs b/test/Arbitrary.hs
index 6660c0c..4568115 100644
--- a/test/Arbitrary.hs
+++ b/test/Arbitrary.hs
@@ -14,7 +14,7 @@ import Data.ByteString (ByteString)
import Data.Char
import Data.List.NonEmpty
import Data.Maybe
-import Data.Text as Text (Text, find, null, pack)
+import Data.Text as Text (Text, find, pack)
import Data.Text.Encoding
import Data.Time.Clock
import Data.Tree
@@ -95,11 +95,6 @@ genCategoryPath = (:|) <$> genCategory <*> listOf genCategory where
genAlphaNum :: Gen Char
genAlphaNum = oneof [choose('a', 'z'), suchThat arbitrary isDigit]
-instance Arbitrary (Refined (Not Null) Text) where
- arbitrary = do
- ~(Right t) <- refine <$> arbitrary `suchThat` (not . Text.null)
- return t
-
instance Arbitrary OpmlHead where
arbitrary = OpmlHead <$> arbitrary
@@ -160,6 +155,6 @@ genOutlineTree n = do
root <- arbitrary
degree <- choose (0, 100)
case (n > 1, root) of
- (True, OpmlOutlineGeneric _ _) -> Node <$> pure root <*> vectorOf degree (genOutlineTree (n-1))
+ (True, OpmlOutlineGeneric _ _) -> Node <$> pure root <*> vectorOf degree (genOutlineTree (n-1))
(False, OpmlOutlineGeneric _ _) -> return $ Node root []
- _ -> return $ Node root []
+ _ -> return $ Node root []