From a4cdcb7fde9c903cac27a622597fbbbde8665655 Mon Sep 17 00:00:00 2001
From: Adrian Herrera <adrian.herrera02@gmail.com>
Date: Sat, 4 Jun 2016 15:45:36 +1000
Subject: [PATCH] Very minor formatting updates

---
 bindings/haskell/src/Unicorn/Internal/Core.chs    | 5 ++---
 bindings/haskell/src/Unicorn/Internal/Unicorn.chs | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/bindings/haskell/src/Unicorn/Internal/Core.chs b/bindings/haskell/src/Unicorn/Internal/Core.chs
index ec1d5db8..a69f51c3 100644
--- a/bindings/haskell/src/Unicorn/Internal/Core.chs
+++ b/bindings/haskell/src/Unicorn/Internal/Core.chs
@@ -31,8 +31,7 @@ import Foreign
 {# pointer *uc_engine as EnginePtr -> Engine #}
 
 -- | Make a new Unicorn engine out of an engine pointer. The returned Unicorn
--- engine will automatically close 'uc_close_wrapper' when it goes out of
--- scope.
+-- engine will automatically call 'uc_close_wrapper' when it goes out of scope.
 mkEngine :: EnginePtr -> IO Engine
 mkEngine ptr =
     liftM Engine (newForeignPtr close ptr)
@@ -41,7 +40,7 @@ mkEngine ptr =
 -- 'errno'.
 {# enum uc_err as Error
     {underscoreToCase}
-    with prefix = "UC_"
+    with prefix="UC_"
     deriving (Show, Eq, Bounded) #}
 
 -- | The emulator runs in the IO monad and allows for the handling of errors
diff --git a/bindings/haskell/src/Unicorn/Internal/Unicorn.chs b/bindings/haskell/src/Unicorn/Internal/Unicorn.chs
index f5d179dd..68bf30b4 100644
--- a/bindings/haskell/src/Unicorn/Internal/Unicorn.chs
+++ b/bindings/haskell/src/Unicorn/Internal/Unicorn.chs
@@ -60,7 +60,7 @@ import Unicorn.Internal.Util
 -- | CPU architecture.
 {# enum uc_arch as Architecture
     {underscoreToCase}
-    with prefix = "UC_"
+    with prefix="UC_"
     deriving (Show, Eq, Bounded) #}
 
 -- | CPU hardware mode.