diff --git a/README.md b/README.md
new file mode 100644
--- /dev/null
+++ b/README.md
@@ -0,0 +1,20 @@
+# hs-luis-client
+
+[![Hackage](https://img.shields.io/hackage/v/luis-client.svg)](https://hackage.haskell.org/package/luis-client)
+
+An unofficial Haskell client for Microsoft's [LUIS](https://www.luis.ai) natural language processing API.
+
+## Examples
+
+```haskell
+import Control.Lens
+import NLP.LUIS
+
+main = do
+   let creds = Credentials "Your-App-Id" "Your-Subscription-Key"
+   resp <- queryExc creds "show me news about greenland"
+
+   resp ^? responseIntents . ix 0 . intentType   -- Just "FindNews"
+   resp ^? responseEntities . ix 0 . entityText  -- Just "greenland"
+
+```
diff --git a/luis-client.cabal b/luis-client.cabal
--- a/luis-client.cabal
+++ b/luis-client.cabal
@@ -1,5 +1,5 @@
 name: luis-client
-version: 0.0.1
+version: 0.0.2
 cabal-version: >=1.10
 build-type: Simple
 license: BSD3
@@ -12,6 +12,8 @@
     Please see README.md
 category: Natural Language Processing, Web
 author: Micxjo Funkcio <micxjo@fastmail.com>
+extra-source-files:
+    README.md
 
 source-repository head
     type: git
diff --git a/src/NLP/LUIS.hs b/src/NLP/LUIS.hs
--- a/src/NLP/LUIS.hs
+++ b/src/NLP/LUIS.hs
@@ -24,6 +24,19 @@
                     , Intent
                     , intentType
                     , intentScore
+                    , intentActions
+                    , Action
+                    , actionName
+                    , actionTriggered
+                    , actionParams
+                    , Param
+                    , paramName
+                    , paramRequired
+                    , paramValues
+                    , ParamValue
+                    , paramValueEntity
+                    , paramValueType
+                    , paramValueScore
                       -- * Entity Type
                     , Entity
                     , entityType
@@ -48,15 +61,50 @@
 import Network.HTTP.Client (HttpException)
 import Network.Wreq hiding (Response)
 
+data ParamValue = ParamValue
+                  { _paramValueEntity :: !Text
+                  , _paramValueType :: !Text
+                  , _paramValueScore :: !Double
+                  } deriving (Eq, Show, Read, Typeable, Data, Generic)
+
+makeLenses ''ParamValue
+
+instance FromJSON ParamValue where
+  parseJSON = withObject "param value" $ \o ->
+    ParamValue <$> o .: "entity" <*> o .: "type" <*> o .: "score"
+
+data Param = Param { _paramName :: !Text
+                   , _paramRequired :: !Bool
+                   , _paramValues :: !(Maybe (Vector ParamValue))
+                   } deriving (Eq, Show, Read, Typeable, Data, Generic)
+
+makeLenses ''Param
+
+instance FromJSON Param where
+  parseJSON = withObject "param" $ \o ->
+    Param <$> o .: "name" <*> o .: "required" <*> o .: "value"
+
+data Action = Action { _actionName :: !Text
+                     , _actionTriggered :: !Bool
+                     , _actionParams :: !(Vector Param)
+                     } deriving (Eq, Show, Read, Typeable, Data, Generic)
+
+makeLenses ''Action
+
+instance FromJSON Action where
+  parseJSON = withObject "action" $ \o ->
+    Action <$> o .: "name" <*> o .: "triggered" <*> o .: "parameters"
+
 data Intent = Intent { _intentType :: !Text
                      , _intentScore :: !Double
+                     , _intentActions :: !(Maybe (Vector Action))
                      } deriving (Eq, Show, Read, Typeable, Data, Generic)
 
 makeLenses ''Intent
 
 instance FromJSON Intent where
   parseJSON = withObject "intent" $ \o ->
-    Intent <$> o .: "intent" <*> o .: "score"
+    Intent <$> o .: "intent" <*> o .: "score" <*> o .: "actions"
 
 data Entity = Entity { _entityText :: !Text
                      , _entityType :: !Text