git.iko.soy/text
on master help sign in
Small whitespace tweaks
commitb6ce77c86360b5e0987e1379a53def57a5ab1b04 authorBryan O'Sullivan <bos@serpentine.com> dateFri 12 Dec 2014, 13:30 (12 years ago) parentef2a9cb
2 files changed+11−11
compare with master
unifiedsplit
tests/Tests/Properties.hs+5−5 tests/Tests/QuickCheckUtils.hs+6−6
tests/Tests/Properties.hs+5−5
@@ -1,9 +1,8 @@
1−-- | General quicktest properties for the text library
2−--
1+-- | QuickCheck properties for the text library.
2+
33{-# LANGUAGE BangPatterns, FlexibleInstances, OverloadedStrings,
44 ScopedTypeVariables, TypeSynonymInstances #-}
5−{-# OPTIONS_GHC -fno-enable-rewrite-rules #-}
6−{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
5+{-# OPTIONS_GHC -fno-enable-rewrite-rules -fno-warn-missing-signatures #-}
76module Tests.Properties
87 (
98 tests
@@ -784,7 +783,8 @@ showFloat TB.Exponent = showEFloat
784783showFloat TB.Fixed = showFFloat
785784showFloat TB.Generic = showGFloat
786785
787−tb_formatRealFloat :: (RealFloat a, Show a) => a -> TB.FPFormat -> Precision a -> Property
786+tb_formatRealFloat :: (RealFloat a, Show a) =>
787+ a -> TB.FPFormat -> Precision a -> Property
788788tb_formatRealFloat a fmt prec =
789789 TB.formatRealFloat fmt p a ===
790790 TB.fromString (showFloat fmt p a "")
tests/Tests/QuickCheckUtils.hs+6−6
@@ -12,9 +12,9 @@ module Tests.QuickCheckUtils
1212
1313 , BigBounded(..)
1414 , BigInt(..)
15− , NotEmpty (..)
15+ , NotEmpty(..)
1616
17− , Small (..)
17+ , Small(..)
1818 , small
1919
2020 , Precision(..)
@@ -22,14 +22,14 @@ module Tests.QuickCheckUtils
2222
2323 , integralRandomR
2424
25− , DecodeErr (..)
25+ , DecodeErr(..)
2626 , genDecodeErr
2727
28− , Stringy (..)
28+ , Stringy(..)
2929 , eq
3030 , eqP
3131
32− , Encoding (..)
32+ , Encoding(..)
3333
3434 , write_read
3535 ) where
@@ -43,7 +43,7 @@ import Data.Text.Foreign (I16)
4343import Data.Text.Lazy.Builder.RealFloat (FPFormat(..))
4444import Data.Word (Word8, Word16)
4545import Debug.Trace (trace)
46−import System.Random (Random (..), RandomGen)
46+import System.Random (Random(..), RandomGen)
4747import Test.QuickCheck hiding (Fixed(..), Small (..), (.&.))
4848import Test.QuickCheck.Monadic (assert, monadicIO, run)
4949import Test.QuickCheck.Unicode (string)