Explicit strictness annotations on JSON fields. Fixes breakage with G…

…HC 7.6.
valderman · Jan 13, 2015 · 55e5965 · 55e5965
1 parent a90d935
commit 55e5965
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/libraries/haste-lib/src/Haste/JSON.hs b/libraries/haste-lib/src/Haste/JSON.hs
@@ -32,9 +32,9 @@ toObject j = error $ "Call to toObject in non-browser: " ++ show j
 
 -- Remember to update jsParseJSON if this data type changes!
 data JSON
-  = Num  !Double
-  | Str  !JSString
-  | Bool !Bool
+  = Num  {-# UNPACK #-} !Double
+  | Str  {-# UNPACK #-} !JSString
+  | Bool {-# UNPACK #-} !Bool
   | Arr  ![JSON]
   | Dict ![(JSString, JSON)]
   | Null