fix modals

This commit is contained in:
Joey Hess 2013-09-16 16:46:00 -04:00
parent 490aa67d10
commit 1ba7737335
7 changed files with 15 additions and 16 deletions

View file

@ -269,8 +269,8 @@ getConfirmAddDriveR drive = ifM (liftIO $ doesDirectoryExist dir)
askcombine = page "Combine repositories?" (Just Configuration) $
$(widgetFile "configurators/adddrive/combine")
cloneModal :: Widget
cloneModal = $(widgetFile "configurators/adddrive/clonemodal")
setupDriveModal :: Widget
setupDriveModal = $(widgetFile "configurators/adddrive/setupmodal")
getFinishAddDriveR :: RemovableDriveKey -> Handler Html
getFinishAddDriveR (RemovableDriveKey drive mkeyid) =