Fix Haskell warnings

obsidiansystems · Jul 20, 2020 · d3150cd · d3150cd
1 parent fb7fa82
commit d3150cd
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/android-activity.cabal b/android-activity.cabal
@@ -28,3 +28,4 @@ library
   exposed-modules:
     Android.HaskellActivity
   extra-libraries: log
+  ghc-options: -Wall -Werror
diff --git a/src/Android/HaskellActivity.hsc b/src/Android/HaskellActivity.hsc
@@ -12,7 +12,6 @@ module Android.HaskellActivity
 import Control.Exception
 import Control.Monad
 import Data.Default
-import Data.Monoid
 import Debug.Trace
 import Foreign.C.String
 import Foreign.Marshal.Utils
@@ -103,6 +102,7 @@ traceActivityCallbacks ac = ActivityCallbacks
   , _activityCallbacks_onDestroy = traceBracket "onDestroy" $ _activityCallbacks_onDestroy ac
   , _activityCallbacks_onRestart = traceBracket "onRestart" $ _activityCallbacks_onRestart ac
   , _activityCallbacks_onNewIntent = \x y -> traceBracket "onNewIntent" $ _activityCallbacks_onNewIntent ac x y
+  , _activityCallbacks_onBackPressed = traceBracket "onBackPressed" $ _activityCallbacks_onBackPressed ac
   , _activityCallbacks_firebaseInstanceIdServiceSendRegistrationToServer = \x ->
       traceBracket "firebaseInstanceIdServiceSendRegistrationToServer" $ _activityCallbacks_firebaseInstanceIdServiceSendRegistrationToServer ac x
   }