From 7124a4f00e536b4d5323a7488c1f65469dddb102 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Tue, 12 May 2020 12:21:36 +0100
Subject: Format with ormolu

---
 src/Verismith/Internal.hs | 50 +++++++++++++++++++++++------------------------
 1 file changed, 24 insertions(+), 26 deletions(-)

(limited to 'src/Verismith/Internal.hs')

diff --git a/src/Verismith/Internal.hs b/src/Verismith/Internal.hs
index 02f73ce..77c5525 100644
--- a/src/Verismith/Internal.hs
+++ b/src/Verismith/Internal.hs
@@ -1,31 +1,29 @@
-{-|
-Module      : Verismith.Internal
-Description : Shared high level code used in the other modules internally.
-Copyright   : (c) 2018-2019, Yann Herklotz
-License     : GPL-3
-Maintainer  : yann [at] yannherklotz [dot] com
-Stability   : experimental
-Portability : POSIX
-
-Shared high level code used in the other modules internally.
--}
-
+-- |
+-- Module      : Verismith.Internal
+-- Description : Shared high level code used in the other modules internally.
+-- Copyright   : (c) 2018-2019, Yann Herklotz
+-- License     : GPL-3
+-- Maintainer  : yann [at] yannherklotz [dot] com
+-- Stability   : experimental
+-- Portability : POSIX
+--
+-- Shared high level code used in the other modules internally.
 module Verismith.Internal
-    ( -- * Useful functions
-      safe
-    , showT
-    , showBS
-    , comma
-    , commaNL
-    )
+  ( -- * Useful functions
+    safe,
+    showT,
+    showBS,
+    comma,
+    commaNL,
+  )
 where
 
-import           Data.ByteString         (ByteString)
-import           Data.ByteString.Builder (byteStringHex, toLazyByteString)
-import qualified Data.ByteString.Lazy    as L
-import           Data.Text               (Text)
-import qualified Data.Text               as T
-import           Data.Text.Encoding      (decodeUtf8)
+import Data.ByteString (ByteString)
+import Data.ByteString.Builder (byteStringHex, toLazyByteString)
+import qualified Data.ByteString.Lazy as L
+import Data.Text (Text)
+import qualified Data.Text as T
+import Data.Text.Encoding (decodeUtf8)
 
 -- | Function to show a bytestring in a hex format.
 showBS :: ByteString -> Text
@@ -34,7 +32,7 @@ showBS = decodeUtf8 . L.toStrict . toLazyByteString . byteStringHex
 -- | 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
+safe f l = Just $ f l
 
 -- | Show function for 'Text'
 showT :: (Show a) => a -> Text
-- 
cgit