diff options
| author | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2019-01-29 23:03:22 +0100 |
|---|---|---|
| committer | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2019-02-05 20:52:24 +0100 |
| commit | fa87fc922cd4c34b46baa32be762dda495ef6a2b (patch) | |
| tree | bcd0600a8ba714278a74d210232f2363475d2d06 /src/Blessings/Internal.hs | |
| parent | e75d0cf94582a5aa6dde781b8428ffff45cf7e76 (diff) | |
Blessings: add test
~ change SGR type to Word8
+ add hspec with QuickCheck
Diffstat (limited to 'src/Blessings/Internal.hs')
| -rw-r--r-- | src/Blessings/Internal.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |