diff --git a/JSONb.cabal b/JSONb.cabal
--- a/JSONb.cabal
+++ b/JSONb.cabal
@@ -1,5 +1,5 @@
 name                          : JSONb
-version                       : 1.0.0
+version                       : 1.0.1
 category                      : Text
 license                       : BSD3
 license-file                  : LICENSE
diff --git a/Text/JSONb/Decode.hs b/Text/JSONb/Decode.hs
--- a/Text/JSONb/Decode.hs
+++ b/Text/JSONb/Decode.hs
@@ -120,7 +120,7 @@
   i                         <-  just_zero <|> positive_number
   f                         <-  option 0 fractional
   e                         <-  option 0 (exponentialE *> signed decimal)
-  return (sign * (i + f) * (10^e))
+  return (sign * (i + f) * (10^^e))
  where
   exponentialE               =  char 'e' <|> char 'E'
   fractional                 =  do
diff --git a/test/SimpleUnits.hs b/test/SimpleUnits.hs
--- a/test/SimpleUnits.hs
+++ b/test/SimpleUnits.hs
@@ -60,8 +60,8 @@
 
 
 prop_string_round_trip s     =  high . escapes $ case round_trip bytes of
-    Right (JSONb.String b)  ->  bytes == b
-    _                       ->  False
+  Right (JSONb.String b)    ->  bytes == b
+  _                         ->  False
  where
   bytes                      =  UTF8.fromString s
   round_trip = JSONb.decode . JSONb.encode JSONb.Compact . JSONb.String