diff options
author | tv <tv@shackspace.de> | 2014-12-28 04:41:52 +0100 |
---|---|---|
committer | tv <tv@shackspace.de> | 2014-12-28 04:41:52 +0100 |
commit | 51e3df5fd288c72ab427dda980d6a9f2d6f8adf9 (patch) | |
tree | 272a4c3df7c5857756201756331a2589ba0c3cb7 /Trammel.hs | |
parent | 4c1239c2e846d8f1987257e1fc76232ec295804f (diff) |
replace tabs by spaces in Trammel String
Diffstat (limited to 'Trammel.hs')
-rw-r--r-- | Trammel.hs | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -24,6 +24,14 @@ data Trammel a deriving (Eq, Show) +instance Functor Trammel where + fmap f = \case + Append t1 t2 -> Append (fmap f t1) (fmap f t2) + Plain s -> Plain (f s) + SGR pm t -> SGR pm (fmap f t) + Empty -> Empty + + instance Monoid (Trammel a) where mappend = Append mempty = Empty |