--- a/Sound/Wav/ChannelData.hs
+++ b/Sound/Wav/ChannelData.hs
@@ -111,7 +111,7 @@ wordPutter 1 = putInt8 . zeroStable (0 :: Int8)
 wordPutter 2 = putInt16le . zeroStable (0 :: Int16)
 wordPutter 3 = putInt32le . zeroStable (0 :: Int32)
 wordPutter 4 = putInt64le
-wordPutter x = \_ -> fail $ "The is no word putter for byte size " ++ show x
+wordPutter x = \_ -> error $ "The is no word putter for byte size " ++ show x
 
 wordGetter :: (Num a, Show a, Eq a) => a -> Get Int64
 wordGetter 1 = fmap zeroStable64 getInt8