From a609de329bd5535973ff05a514c100034b37b4bf Mon Sep 17 00:00:00 2001
From: Wolfgang Thaller <wolfgang.thaller@gmx.net>
Date: Fri, 13 Apr 2012 22:03:51 +0200
Subject: [PATCH] whitespace

---
 PrepareHeaders.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/PrepareHeaders.hs b/PrepareHeaders.hs
index 7575ba8a96..6d967273b5 100644
--- a/PrepareHeaders.hs
+++ b/PrepareHeaders.hs
@@ -78,8 +78,8 @@ reg = (reserved tp "__A0" >> return "%%a0")
 data TypeCategory = ByteType | WordType | LongType | PointerType | VoidType
    deriving(Show, Eq)
 classifyType tm t | "Ptr" `isSuffixOf` t = Just PointerType
-               | "*" `isSuffixOf` t = Just PointerType
-               | "Handle" `isSuffixOf` t = Just PointerType
+                  | "*" `isSuffixOf` t = Just PointerType
+                  | "Handle" `isSuffixOf` t = Just PointerType
 classifyType tm "unsigned char" = Just ByteType
 classifyType tm "signed char" = Just ByteType
 classifyType tm "char" = Just ByteType