Download raw

Created: 2023-12-19 03:40:10.302489 UTC

Size: 3020

Preview (limited to 512 bytes)

"-- Check that the terminal output works correctly.\n{-# LANGUAGE TemplateHaskell, DeriveGeneric #-}\nimport Test.QuickCheck\nimport Test.QuickCheck.Text\nimport System.Process\nimport System.IO\nimport Control.Exception\nimport GHC.Generics\nimport Control.DeepSeq\n\ndata Command =\n PutPart String\n | PutLine String\n | PutTemp String\n deriving (Eq, Ord, Show, Generic)\n\ninstance Arbitrary Command where\n arbitrary =\n oneof [\n PutPart <$> line,\n PutLine <$> line,\n PutTemp <$> line]\n where\n "

Casa is a service provided by the Haskell Foundation │ Originally developed by FP Complete