on master help sign in
whitespace
1189bbcMatthias Fischmann
tests/Properties.hs+5−5
@@ -126,14 +126,14 @@ tests = [
126 testGroup "roundTrip" [
126 testGroup "roundTrip" [
127 testProperty "Bool" $ roundTripEq True
127 testProperty "Bool" $ roundTripEq True
128 , testProperty "Double" $ roundTripEq (1 :: Approx Double)
128 , testProperty "Double" $ roundTripEq (1 :: Approx Double)
129− , testProperty "Int" $ roundTripEq (1::Int)
129+ , testProperty "Int" $ roundTripEq (1 :: Int)
130− , testProperty "Integer" $ roundTripEq (1::Integer)
130+ , testProperty "Integer" $ roundTripEq (1 :: Integer)
131− , testProperty "String" $ roundTripEq (""::String)
131+ , testProperty "String" $ roundTripEq ("" :: String)
132 , testProperty "Text" $ roundTripEq T.empty
132 , testProperty "Text" $ roundTripEq T.empty
133− , testProperty "Foo" $ roundTripEq (undefined::Foo)
133+ , testProperty "Foo" $ roundTripEq (undefined :: Foo)
134 , testProperty "DotNetTime" $ roundTripEq (undefined :: DotNetTime)
134 , testProperty "DotNetTime" $ roundTripEq (undefined :: DotNetTime)
135 , testProperty "UTCTime" $ roundTripEq (undefined :: UTCTime)
135 , testProperty "UTCTime" $ roundTripEq (undefined :: UTCTime)
136− , testProperty "ZonedTime" $ roundTripEq (undefined::ZonedTime)
136+ , testProperty "ZonedTime" $ roundTripEq (undefined :: ZonedTime)
137#ifdef GHC_GENERICS
137#ifdef GHC_GENERICS
138 , testGroup "ghcGenerics" [
138 , testGroup "ghcGenerics" [
139 testProperty "OneConstructor" $ roundTripEq OneConstructor
139 testProperty "OneConstructor" $ roundTripEq OneConstructor