Removed redundant import

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

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

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