From 57c56564d15cd5c83a4f1d1bab5490e6b75e8656 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 18 Jan 2016 12:09:36 +0000
Subject: Moved Printout.BBCode to own module

---
 spec/src/Thermoprint/Printout/BBCode/Attribute.hs | 39 -----------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 spec/src/Thermoprint/Printout/BBCode/Attribute.hs

(limited to 'spec/src/Thermoprint/Printout/BBCode')

diff --git a/spec/src/Thermoprint/Printout/BBCode/Attribute.hs b/spec/src/Thermoprint/Printout/BBCode/Attribute.hs
deleted file mode 100644
index 538cca2..0000000
--- a/spec/src/Thermoprint/Printout/BBCode/Attribute.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-{-# LANGUAGE DefaultSignatures #-}
-
--- | Parsing attributes
-module Thermoprint.Printout.BBCode.Attribute
-       ( Attribute(..)
-       , lookupAttr
-       ) where
-
-import Data.Text (Text)
-import qualified Data.Text as T (unpack, empty)
-
-import Data.Map (Map)
-import qualified Data.Map as Map (lookup)
-
-import Data.CaseInsensitive (CI)
-import qualified Data.CaseInsensitive as CI
-  
-import Text.Read (readMaybe)
-import Data.Maybe (fromMaybe)
-
-import Control.Applicative (Alternative(..))
-
--- | We build our own version of 'Read' so we can override the presentation used
---
--- We provide a default implementation for 'Read a => Attribute a'
-class Attribute a where
-  attrRead :: Text -> Maybe a
-  default attrRead :: Read a => Text -> Maybe a
-  attrRead = readMaybe . T.unpack
-
-instance Attribute Integer
-
-lookupAttr :: Attribute a => CI Text -> Bool -> a -> Map (CI Text) Text -> a
--- ^ Extract an attribute by name -- the 'Bool' attribute specifies whether we additionally accept the empty string as key
-lookupAttr t emptyOk def attrs = fromMaybe def $ (emptyOk' $ Map.lookup t attrs) >>= attrRead
-  where
-    emptyOk'
-      | emptyOk   = (<|> Map.lookup (CI.mk T.empty) attrs)
-      | otherwise = id
-- 
cgit v1.2.3