From fa87fc922cd4c34b46baa32be762dda495ef6a2b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= Date: Tue, 29 Jan 2019 23:03:22 +0100 Subject: Blessings: add test ~ change SGR type to Word8 + add hspec with QuickCheck --- src/Blessings/Internal.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Blessings/Internal.hs') diff --git a/src/Blessings/Internal.hs b/src/Blessings/Internal.hs index c96a587..0ed5556 100644 --- a/src/Blessings/Internal.hs +++ b/src/Blessings/Internal.hs @@ -1,6 +1,7 @@ module Blessings.Internal where import Data.String (IsString) +import Data.Word (Word8) class (IsString a, Monoid a) => Blessable a where @@ -8,4 +9,4 @@ class (IsString a, Monoid a) => Blessable a where drop :: Int -> a -> a take :: Int -> a -> a intercalate :: a -> [a] -> a - fromInt :: Int -> a + fromWord8 :: Word8 -> a -- cgit v1.2.3