diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-05-12 12:21:36 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-05-12 12:21:42 +0100 |
commit | 7124a4f00e536b4d5323a7488c1f65469dddb102 (patch) | |
tree | 150ccfd9bf1549c930a12ee5200826cedfa37fa3 /src/Verismith/Internal.hs | |
parent | d1b04fc068b1484f8bd0020598d3a2f023772f46 (diff) | |
download | verismith-7124a4f00e536b4d5323a7488c1f65469dddb102.tar.gz verismith-7124a4f00e536b4d5323a7488c1f65469dddb102.zip |
Format with ormolu
Diffstat (limited to 'src/Verismith/Internal.hs')
-rw-r--r-- | src/Verismith/Internal.hs | 50 |
1 files changed, 24 insertions, 26 deletions
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 |