src/Blessings/Internal.hs


1
2
3
4
5
6
7
8
9
10
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