Fix spelling in error message.

The 'r' in 'underflow' was missing.
fizruk · Feb 4, 2017 · e56d542 · e56d542
1 parent ebb82fd
commit e56d542
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Web/Internal/HttpApiData.hs b/src/Web/Internal/HttpApiData.hs
@@ -508,7 +508,7 @@ instance FromHttpApiData Natural where
   parseUrlPiece s = do
     n <- runReader (signed decimal) s
     if n < 0
-      then Left ("undeflow: " <> s <> " (should be a non-negative integer)")
+      then Left ("underflow: " <> s <> " (should be a non-negative integer)")
       else Right (fromInteger n)
 #endif