From 6b767df2fc47a77a4f856e040346ce49c0e7bf00 Mon Sep 17 00:00:00 2001 From: tv Date: Fri, 25 Jan 2019 04:15:45 +0100 Subject: Add support for Text --- src/Blessings/Internal.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 src/Blessings/Internal.hs (limited to 'src/Blessings/Internal.hs') diff --git a/src/Blessings/Internal.hs b/src/Blessings/Internal.hs new file mode 100644 index 0000000..c96a587 --- /dev/null +++ b/src/Blessings/Internal.hs @@ -0,0 +1,11 @@ +module Blessings.Internal where + +import Data.String (IsString) + + +class (IsString a, Monoid a) => Blessable a where + length :: a -> Int + drop :: Int -> a -> a + take :: Int -> a -> a + intercalate :: a -> [a] -> a + fromInt :: Int -> a -- cgit v1.2.3