summaryrefslogtreecommitdiffstats
path: root/src/Blessings/Internal.hs
blob: 62d8fd45b47460dba94ae4409f573d28e80388cc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{-# LANGUAGE ConstrainedClassMethods #-}
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
  splitAt :: Int -> a -> (a, a)
  break :: (Char -> Bool) -> a -> (a, a)
  intercalate :: a -> [a] -> a
  fromWord8 :: Word8 -> a
  show :: Show x => x -> a