module Blessings.Internal where

import Data.String (IsString)
import Data.Word (Word8)


class (IsString a, Monoid a) => Blessable a where
  length :: a -> Int
  drop :: Int -> a -> a
  take :: Int -> a -> a
  intercalate :: a -> [a] -> a
  fromWord8 :: Word8 -> a