diff --git a/NXT.cabal b/NXT.cabal
--- a/NXT.cabal
+++ b/NXT.cabal
@@ -1,5 +1,5 @@
 Name:                NXT
-Version:             0.2.3
+Version:             0.2.4
 Synopsis:            A Haskell interface to Lego Mindstorms NXT
 Description:         A Haskell interface to Lego Mindstorms NXT over Bluetoooth. It supports direct commands, messages and
                      many sensors (also unofficial). It has also support for a simple message-based control of a NXT brick
diff --git a/lib/Robotics/NXT/Internals.hs b/lib/Robotics/NXT/Internals.hs
--- a/lib/Robotics/NXT/Internals.hs
+++ b/lib/Robotics/NXT/Internals.hs
@@ -12,7 +12,7 @@
 {-|
 Monad which encompasses interface to the NXT brick.
 -}
-newtype NXT a = NXT (StateT NXTInternals IO a) deriving (Monad, MonadIO, Functor, MonadFix) -- NXT monad
+newtype NXT a = NXT (StateT NXTInternals IO a) deriving (Monad, Applicative, MonadIO, Functor, MonadFix) -- NXT monad
 
 {-|
 A token used for exposed internal functions.
diff --git a/lib/Robotics/NXT/Sensor/Ultrasonic.hs b/lib/Robotics/NXT/Sensor/Ultrasonic.hs
--- a/lib/Robotics/NXT/Sensor/Ultrasonic.hs
+++ b/lib/Robotics/NXT/Sensor/Ultrasonic.hs
@@ -39,7 +39,6 @@
   MeasurementNumber
 ) where
 
-import Control.Applicative
 import Control.Exception
 import Control.Monad
 import Control.Monad.Trans
diff --git a/src/UploadFiles.hs b/src/UploadFiles.hs
--- a/src/UploadFiles.hs
+++ b/src/UploadFiles.hs
@@ -2,7 +2,6 @@
   main
 ) where
 
-import Control.Applicative
 import Control.Monad.State
 import qualified Data.ByteString.Lazy as B
 import Data.Maybe
diff --git a/tests/Robotics/NXT/Basic.hs b/tests/Robotics/NXT/Basic.hs
--- a/tests/Robotics/NXT/Basic.hs
+++ b/tests/Robotics/NXT/Basic.hs
@@ -1,6 +1,5 @@
 module Robotics.NXT.Basic where
 
-import Control.Applicative
 import Control.Monad.State hiding (state, runState)
 import qualified Data.ByteString.Lazy as B
 import Data.IORef