adding bangs to models

frameworks/Haskell/spock/src/Models/Fortune.hs

@@ -13,8 +13,8 @@ import           Database.PostgreSQL.Simple.FromRow
 
 
 data Fortune = Fortune
-    { _idF      :: Integer
-    , _messageF :: T.Text
+    { _idF      :: !Integer
+    , _messageF :: !T.Text
     } deriving (Show)
 
 -- | JSON serialization

frameworks/Haskell/spock/src/Models/World.hs

@@ -17,8 +17,8 @@ import           System.Random
 
 
 data World = World
-    { _idW           :: Integer
-    , _randomNumberW :: Integer
+    { _idW           :: !Integer
+    , _randomNumberW :: !Integer
     } deriving (Show)
 
 -- | JSON serialization