failing persistent migration

A.hs

{-# LANGUAGE EmptyDataDecls, FlexibleContexts, GADTs, OverloadedStrings, QuasiQuotes, TemplateHaskell, TypeFamilies #-}

module A where

import Database.Persist.TH

share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
A
|]

B.hs

{-# LANGUAGE EmptyDataDecls, FlexibleContexts, GADTs, OverloadedStrings, QuasiQuotes, TemplateHaskell, TypeFamilies #-}
module B where

import Database.Persist.TH
import A

share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
B
  aId AId
|]

Main.hs

{-# LANGUAGE OverloadedStrings #-}

import Control.Monad.Trans
import Database.Persist.Sqlite

import qualified A
import qualified B

main :: IO ()
main = runSqlite ":memory:" $ do
  runMigration A.migrateAll
  liftIO $ putStrLn "Migrated A"
  runMigration B.migrateAll
  liftIO $ putStrLn "Migrated B"

output

Migrating: CREATE TABLE "a"("id" INTEGER PRIMARY KEY)
Migrated A
persist-test: Table not found: A