1 files changed, 18 insertions, 0 deletions
diff --git a/src/VeriFuzz/Internal/Shared.hs b/src/VeriFuzz/Internal/Shared.hs
new file mode 100644
index 0000000..c7d2760
--- /dev/null
+++ b/src/VeriFuzz/Internal/Shared.hs
@@ -0,0 +1,18 @@
+{-|
+Module      : VeriFuzz.Internal.Shared
+Description : Shared high level code used in the other modules internally.
+Copyright   : (c) 2018-2019, Yann Herklotz Grave
+License     : BSD-3
+Maintainer  : ymherklotz [at] gmail [dot] com
+Stability   : experimental
+Portability : POSIX
+
+Shared high level code used in the other modules internally.
+-}
+
+module VeriFuzz.Internal.Shared where
+
+-- | Converts unsafe list functions in the Prelude to a safe version.
+safe :: ([a] -> b) -> [a] -> Maybe b
+safe _ [] = Nothing
+safe f l  = Just $ f l