diff --git a/lib/Hikaru/Action.hs b/lib/Hikaru/Action.hs
index 17f028938052837596e11efd15b13d00625c4bf1..71cf179e89a8be177673b3e685ab2f056f0a0367 100644
--- a/lib/Hikaru/Action.hs
+++ b/lib/Hikaru/Action.hs
@@ -175,9 +175,9 @@ where
   --
   data AbortAction
     = AbortAction
-      { status         :: Status
+      { status         :: !Status
       , headers        :: [Header]
-      , message        :: Text
+      , message        :: !Text
       }
     deriving (Show, Generic)
 
@@ -222,17 +222,17 @@ where
   data ActionEnv
     = ActionEnv
       { aeRequest      :: Request
-      , aeBody         :: IORef RequestBody
-      , aeRespStatus   :: IORef Status
-      , aeRespHeaders  :: IORef ResponseHeaders
-      , aeRespMaker    :: IORef ResponseMaker
-      , aeFinalize     :: IORef (IO ())
-      , aeBodyLimit    :: IORef Int64
-      , aeBodyCounter  :: IORef Int64
-      , aeLanguages    :: IORef [Text]
-      , aeCache        :: IORef (Map.Map Text Dynamic)
-      , aeMsgLimit     :: IORef Int64
-      , aeFrameLimit   :: IORef Int64
+      , aeBody         :: !(IORef RequestBody)
+      , aeRespStatus   :: !(IORef Status)
+      , aeRespHeaders  :: !(IORef ResponseHeaders)
+      , aeRespMaker    :: !(IORef ResponseMaker)
+      , aeFinalize     :: !(IORef (IO ()))
+      , aeBodyLimit    :: !(IORef Int64)
+      , aeBodyCounter  :: !(IORef Int64)
+      , aeLanguages    :: !(IORef [Text])
+      , aeCache        :: !(IORef (Map.Map Text Dynamic))
+      , aeMsgLimit     :: !(IORef Int64)
+      , aeFrameLimit   :: !(IORef Int64)
       }
 
 
diff --git a/lib/Hikaru/Media.hs b/lib/Hikaru/Media.hs
index 5ba79c331cda32602bf8e594c44abf8a86f188a4..cc77e170fa0f64d1c6c96ef3e80fde061aeee4bf 100644
--- a/lib/Hikaru/Media.hs
+++ b/lib/Hikaru/Media.hs
@@ -41,10 +41,10 @@ where
   --
   data Media
     = Media
-      { mainType       :: Text
-      , subType        :: Text
+      { mainType       :: !Text
+      , subType        :: !Text
       , params         :: [(Text, Text)]
-      , quality        :: Float
+      , quality        :: !Float
       }
     deriving (Show, Eq, Ord, Generic)