blob: 5d5fdee9bd24a9663ab72f24e413afa7f8eb4e96 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- 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
|
GitWeb
