diff --git a/app/Main.hs b/app/Main.hs
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -39,7 +39,7 @@
    <>  header "nuxeo - nuxeo cli tools")
 
 -- | Exemple reindex instance
-reindexInstance :: Instance -> IO ()
+reindexInstance :: NuxeoInstance -> IO ()
 reindexInstance i = do
   reindexAction <- reindex i
   case reindexAction of
@@ -49,17 +49,17 @@
 
 -- | Exemple to extract errors from Nuxeo log
 showErr :: T.Text -> IO()
-showErr logFile = (filter (\l -> nuxeoLogEntryType l == Error) <$> parseNuxeoLog (T.unpack logFile))
-                                >>= mapM_ (\t -> TIO.putStrLn $
-                                                 T.replicate 10 "=" <> "\n"
-                                                 <> T.replicate 5 " " <> (T.pack $ show $ nuxeoLogEntryDthr t)
-                                                 <> "\n" <> T.replicate 10 "=" <> "\n"
-                                                 <> (T.pack $ show $ nuxeoLogEntryType t)
-                                                 <> " - "
-                                                 <> nuxeoLogEntryAction t
-                                                 <> "\n\n"
-                                                 <> nuxeoLogEntryLog t
-                                          )
+showErr logFile = (filter (\l -> nuxeoLogEntryType l == NuxeoError) <$> parseNuxeoLog (T.unpack logFile))
+                  >>= mapM_ (\t -> TIO.putStrLn $
+                                   T.replicate 10 "=" <> "\n"
+                                   <> T.replicate 5 " " <> (T.pack $ show $ nuxeoLogEntryDthr t)
+                                   <> "\n" <> T.replicate 10 "=" <> "\n"
+                                   <> (T.pack $ show $ nuxeoLogEntryType t)
+                                   <> " - "
+                                   <> nuxeoLogEntryAction t
+                                   <> "\n\n"
+                                   <> nuxeoLogEntryLog t
+                            )
 
 
 main :: IO ()
@@ -69,5 +69,5 @@
 
   if (instanceLogin /= ""
       && instancePassword /= ""
-      && reindexUrl /= "") then reindexInstance (Instance reindexUrl instanceLogin instancePassword) else pure ()
+      && reindexUrl /= "") then reindexInstance (NuxeoInstance reindexUrl instanceLogin instancePassword) else pure ()
   if showErrLogFile /= "" then showErr showErrLogFile else pure ()
diff --git a/nuxeo.cabal b/nuxeo.cabal
--- a/nuxeo.cabal
+++ b/nuxeo.cabal
@@ -2,10 +2,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: af58711cda0cd6cfb99bec58266edbca4d13e7105cdeeb315116d5760891a58d
+-- hash: befb36841125d1c20bebd327452b5ce949036bf73d3403a4587081f8102dcdc3
 
 name:           nuxeo
-version:        0.3.1
+version:        0.3.2
 description:    Nuxeo tools
 category:       System
 homepage:       https://github.com/apeyroux/nuxeo#readme
diff --git a/src/Nuxeo/ElasticSearch.hs b/src/Nuxeo/ElasticSearch.hs
--- a/src/Nuxeo/ElasticSearch.hs
+++ b/src/Nuxeo/ElasticSearch.hs
@@ -12,7 +12,7 @@
 import Nuxeo.Types
 
 -- | POST @{"params":{},"context":{}}@ to @\/nuxeo\/site\/automation\/Elasticsearch.Index@
-reindex :: Instance -> IO (Either Text Text)
+reindex :: NuxeoInstance -> IO (Either Text Text)
 reindex i =
   -- check if instanceUrl is formated
   case importURL esUrl of
diff --git a/src/Nuxeo/Log.hs b/src/Nuxeo/Log.hs
--- a/src/Nuxeo/Log.hs
+++ b/src/Nuxeo/Log.hs
@@ -1,10 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 module Nuxeo.Log (
-  NuxeoLog
-  , NuxeoLogType (..)
-  , NuxeoLogEntry (..)
-  , parseNuxeoLog
+  parseNuxeoLog
   ) where
 
 import           Control.Applicative
@@ -15,18 +12,7 @@
 import           Data.Conduit.Binary
 import qualified Data.Text as T
 import           Data.Time
-
-data NuxeoLogType = Debug | Error | Warning | Info deriving (Show, Read, Eq)
-
-data NuxeoLogEntry = NuxeoLogEntry {
-  nuxeoLogEntryDthr :: LocalTime
-  , nuxeoLogEntryType :: NuxeoLogType
-  , nuxeoLogEntrySection :: T.Text
-  , nuxeoLogEntryAction :: T.Text
-  , nuxeoLogEntryLog :: T.Text
-  } deriving Show
-
-type NuxeoLog = [NuxeoLogEntry]
+import           Nuxeo.Types
 
 -- | Parse Nuxeo server.log
 --
@@ -62,10 +48,10 @@
   return $ NuxeoLogEntry ptime ptype psection paction (T.pack pnuxeolog)
 
 nuxeoTypeLogParser :: Parser NuxeoLogType
-nuxeoTypeLogParser = (string "ERROR" *> return Error)
-                     <|> (string "DEBUG" *> return Debug)
-                     <|> (string "WARN" *> return Warning)
-                     <|> (string "INFO" *> return Info)
+nuxeoTypeLogParser = (string "ERROR" *> return NuxeoError)
+                     <|> (string "DEBUG" *> return NuxeoDebug)
+                     <|> (string "WARN" *> return NuxeoWarning)
+                     <|> (string "INFO" *> return NuxeoInfo)
                      <|> fail "Invalid NuxeoTypeLog"
 
 nuxeoLogEntrySectionParser :: Parser T.Text
diff --git a/src/Nuxeo/Types.hs b/src/Nuxeo/Types.hs
--- a/src/Nuxeo/Types.hs
+++ b/src/Nuxeo/Types.hs
@@ -1,12 +1,28 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 module Nuxeo.Types (
-  Instance (..)
+  NuxeoInstance (..)
+  , NuxeoLog
+  , NuxeoLogEntry (..)
+  , NuxeoLogType (..)
   ) where
 
-import Data.Text 
+import Data.Text
+import Data.Time
 
-data Instance = Instance {
+data NuxeoLogType = NuxeoDebug | NuxeoError | NuxeoWarning | NuxeoInfo deriving (Show, Read, Eq)
+
+data NuxeoLogEntry = NuxeoLogEntry {
+  nuxeoLogEntryDthr :: LocalTime
+  , nuxeoLogEntryType :: NuxeoLogType
+  , nuxeoLogEntrySection :: Text
+  , nuxeoLogEntryAction :: Text
+  , nuxeoLogEntryLog :: Text
+  } deriving Show
+
+type NuxeoLog = [NuxeoLogEntry]
+
+data NuxeoInstance = NuxeoInstance {
   instanceUrl :: Text
   , instanceLogin :: Text
   , instancePassword :: Text