fix saving of files

mrkkrp · Oct 30, 2015 · bf3b85b · bf3b85b
1 parent 28c835b
commit bf3b85b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Sound/HTagLib/Internal.hs b/Sound/HTagLib/Internal.hs
@@ -223,9 +223,9 @@ freeFile (FileId ptr) = c_taglib_file_free ptr
 
 saveFile :: FileId -> IO ()
 saveFile (FileId ptr) = do
-  code <- c_taglib_file_save ptr
-  unless (code == 0) $ throwIO $ mkIOError illegalOperationErrorType
-    "Sound.HTagLib.Internal.new" Nothing Nothing
+  success <- toBool <$> c_taglib_file_save ptr
+  unless success $ throwIO $ mkIOError illegalOperationErrorType
+    "Sound.HTagLib.Internal.saveFile" Nothing Nothing
 
 -- Tag API