@@ -1,14 +0,0 @@
1−{-# LANGUAGE GeneralizedNewtypeDeriving, TypeSynonymInstances, FlexibleInstances #-}
3−module Util.Stringable where
5−class Stringable s where
6− stringify :: s -> String
8−instance Stringable String where
12−(+-) :: (Stringable a, Stringable b) => a -> b -> String
13−a +- b = (stringify a) ++ (stringify b)