From 67ecff7ad383640bc73d64edc2506c7cc648a134 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Mon, 19 Jun 2017 11:57:23 +0200
Subject: Move src/ to lib/, put Init.hs in src/

---
 src/Data/Yaml/Extended.hs | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100644 src/Data/Yaml/Extended.hs

(limited to 'src/Data/Yaml')

diff --git a/src/Data/Yaml/Extended.hs b/src/Data/Yaml/Extended.hs
deleted file mode 100644
index c940ff7..0000000
--- a/src/Data/Yaml/Extended.hs
+++ /dev/null
@@ -1,24 +0,0 @@
-module Data.Yaml.Extended
-    ( module Data.Yaml
-    , toString
-    , toList
-    ) where
-
-import qualified Data.Text   as T
-import qualified Data.Vector as V
-import           Data.Yaml
-import           Data.Scientific
-
-toString :: Value -> Maybe String
-toString (String t)     = Just (T.unpack t)
-toString (Bool   True)  = Just "true"
-toString (Bool   False) = Just "false"
--- | Make sure that numeric fields containing integer numbers are shown as
--- | integers (i.e., "42" instead of "42.0").
-toString (Number d) | isInteger d = Just (formatScientific Fixed (Just 0) d)
-                    | otherwise   = Just (show d)
-toString _              = Nothing
-
-toList :: Value -> Maybe [Value]
-toList (Array a) = Just (V.toList a)
-toList _         = Nothing
-- 
cgit v1.2.3