Commit b6ce77c8 authored by bos's avatar bos
Browse files

Small whitespace tweaks

parent ef2a9cbe
-- | General quicktest properties for the text library
--
-- | QuickCheck properties for the text library.
{-# LANGUAGE BangPatterns, FlexibleInstances, OverloadedStrings,
ScopedTypeVariables, TypeSynonymInstances #-}
{-# OPTIONS_GHC -fno-enable-rewrite-rules #-}
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
{-# OPTIONS_GHC -fno-enable-rewrite-rules -fno-warn-missing-signatures #-}
module Tests.Properties
(
tests
......@@ -784,7 +783,8 @@ showFloat TB.Exponent = showEFloat
showFloat TB.Fixed = showFFloat
showFloat TB.Generic = showGFloat
tb_formatRealFloat :: (RealFloat a, Show a) => a -> TB.FPFormat -> Precision a -> Property
tb_formatRealFloat :: (RealFloat a, Show a) =>
a -> TB.FPFormat -> Precision a -> Property
tb_formatRealFloat a fmt prec =
TB.formatRealFloat fmt p a ===
TB.fromString (showFloat fmt p a "")
......
......@@ -12,9 +12,9 @@ module Tests.QuickCheckUtils
, BigBounded(..)
, BigInt(..)
, NotEmpty (..)
, NotEmpty(..)
, Small (..)
, Small(..)
, small
, Precision(..)
......@@ -22,14 +22,14 @@ module Tests.QuickCheckUtils
, integralRandomR
, DecodeErr (..)
, DecodeErr(..)
, genDecodeErr
, Stringy (..)
, Stringy(..)
, eq
, eqP
, Encoding (..)
, Encoding(..)
, write_read
) where
......@@ -43,7 +43,7 @@ import Data.Text.Foreign (I16)
import Data.Text.Lazy.Builder.RealFloat (FPFormat(..))
import Data.Word (Word8, Word16)
import Debug.Trace (trace)
import System.Random (Random (..), RandomGen)
import System.Random (Random(..), RandomGen)
import Test.QuickCheck hiding (Fixed(..), Small (..), (.&.))
import Test.QuickCheck.Monadic (assert, monadicIO, run)
import Test.QuickCheck.Unicode (string)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment