diff --git a/bindings/haskell/src/Unicorn.hs b/bindings/haskell/src/Unicorn.hs
index 856133ff..7f05eca4 100644
--- a/bindings/haskell/src/Unicorn.hs
+++ b/bindings/haskell/src/Unicorn.hs
@@ -48,10 +48,9 @@ module Unicorn (
 import Control.Monad (liftM)
 import Control.Monad.Trans.Class (lift)
 import Control.Monad.Trans.Either (hoistEither, left, right, runEitherT)
-import Foreign
-
-import Prelude hiding (until)
 import Data.ByteString (ByteString, pack)
+import Foreign
+import Prelude hiding (until)
 
 import Unicorn.Internal.Core
 import Unicorn.Internal.Unicorn
@@ -76,7 +75,7 @@ open :: Architecture    -- ^ CPU architecture
 open arch mode = do
     (err, ucPtr) <- lift $ ucOpen arch mode
     if err == ErrOk then
-        -- Return a pointer to the unicorn engine if ucOpen completed
+        -- Return a pointer to the Unicorn engine if ucOpen completed
         -- successfully
         lift $ mkEngine ucPtr
     else
diff --git a/bindings/haskell/src/Unicorn/Internal/Unicorn.chs b/bindings/haskell/src/Unicorn/Internal/Unicorn.chs
index 68bf30b4..53bf82f5 100644
--- a/bindings/haskell/src/Unicorn/Internal/Unicorn.chs
+++ b/bindings/haskell/src/Unicorn/Internal/Unicorn.chs
@@ -38,11 +38,10 @@ module Unicorn.Internal.Unicorn (
     ucStrerror,
 ) where
 
-import Foreign
-import Foreign.C
-
 import Control.Applicative
 import Data.ByteString (ByteString, useAsCStringLen)
+import Foreign
+import Foreign.C
 import Prelude hiding (until)
 
 import Unicorn.Internal.Util
diff --git a/bindings/haskell/src/Unicorn/Internal/Util.hs b/bindings/haskell/src/Unicorn/Internal/Util.hs
index 5ec07f7e..3af6a513 100644
--- a/bindings/haskell/src/Unicorn/Internal/Util.hs
+++ b/bindings/haskell/src/Unicorn/Internal/Util.hs
@@ -6,7 +6,6 @@ License     : GPL-2
 -}
 module Unicorn.Internal.Util where
 
-import Control.Applicative
 import Data.Bits
 import Foreign