From 06be083cb2f9bbaf36093ecfd411a79ccce11008 Mon Sep 17 00:00:00 2001
From: Jonathan Daugherty <cygnus@foobox.com>
Date: Sat, 22 Oct 2016 12:30:34 -0700
Subject: [PATCH] tests: add missing _appBackend value in LinearMigrationsTest

---
 test/LinearMigrationsTest.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/LinearMigrationsTest.hs b/test/LinearMigrationsTest.hs
index 979600a..982cf2c 100644
--- a/test/LinearMigrationsTest.hs
+++ b/test/LinearMigrationsTest.hs
@@ -6,7 +6,6 @@ import           Test.HUnit
 import           Common
 import           Control.Monad.Reader                 (runReaderT)
 import           Data.Either                          (isRight)
-import           Data.Maybe                           (isNothing)
 import           Database.Schema.Migrations.Migration
 import           Database.Schema.Migrations.Store
 import           Moo.CommandHandlers
@@ -73,6 +72,7 @@ prepareState m = do
     Right storeData <- loadMigrations store
     return AppState {
       _appOptions = CommandOptions Nothing False True
+    , _appBackend = undefined -- Not used here
     , _appCommand = undefined -- Not used by newCommand
     , _appRequiredArgs = [m]
     , _appOptionalArgs = []