Move src/ to lib/, put Init.hs in src/

2 files changed, 0 insertions, 39 deletions

diff --git a/src/Data/List/Extended.hs b/src/Data/List/Extended.hs
deleted file mode 100644
index 485cba8..0000000
--- a/src/Data/List/Extended.hs
+++ /dev/null
@@ -1,15 +0,0 @@
-module Data.List.Extended
-    ( module Data.List
-    , breakWhen
-    ) where
-
-import           Data.List
-
--- | Like 'break', but can act on the entire tail of the list.
-breakWhen :: ([a] -> Bool) -> [a] -> ([a], [a])
-breakWhen predicate = go []
-  where
-    go buf []                = (reverse buf, [])
-    go buf (x : xs)
-        | predicate (x : xs) = (reverse buf, x : xs)
-        | otherwise          = go (x : buf) xs
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