File: Bootloader.hs

package info (click to toggle)
dfsbuild 1.0.2.0
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 1,312 kB
  • ctags: 6
  • sloc: haskell: 831; sh: 200; makefile: 99
file content (19 lines) | stat: -rw-r--r-- 586 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
{- dfsbuild: CD image builder
Copyright (c) 2006 John Goerzen
Please see COPYRIGHT for more details
-}

module Bootloader where
import qualified Bootloader.Grub
import Utils
import qualified Bootloader.Aboot
import qualified Bootloader.Yaboot

install :: DFSEnv -> IO ([String], String -> IO ())
install env =
    case eget env "bootloader" of
      "grub-no-emul" -> Bootloader.Grub.grub_eltorito env
      "grub-hd" -> Bootloader.Grub.grub_hd env
      "aboot" -> Bootloader.Aboot.aboot env
      "yaboot" -> Bootloader.Yaboot.yaboot env
      x -> fail $ "Invalid bootloader: " ++ x